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-REM_ 
IDENTIFICATION 
PRODUCT ID: AC-TO9SE -MC 
PRODUCT TITLE: CVTSBEO TSVOS CTRL PART 2 
DEPARTMENT : COMPUTER SPECIAL SYSTEMS/PGG 
DATE: JUNE 08, 1987 


THE INFORMATION IN THIS DOCUMENT IS w tee: TO CHANGE WITHOUT 
NOTICE 2 SHOULD NOT BE_CONSTRUED AS A COMMITMENT 8Y DIGITAL 
EQUIPMENT CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO 
RESPONSIBILITY FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 


NO RESPONSIBILITY IS ASSUMED FOR THE USE OR RELIABILITY OF 
SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY DIGITAL OR ITS 
AFFILIATED COMPANIES 


COPYRIGHT (C) 1982, 1987 BY DIGITAL EQUIPMENT CORPORATION 


THE FOLLOWING ARE TRADEMARKS OF DIGITAL EQUIPMENT CORPORATION: 


DIGITAL PDP UNIBUS MASSBUS 
DEC DECUS DECTAPE 


SEQ 000 
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NO WW & W NANPNNPNN PRR RReR 
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TABLE OF CONTENTS 


AL INFORMATION 


S 
REL DOCUMENTS AND STANDARDS 
DIAGNOSTIC HIERARCHY PREREQUISITES 
ASSUMPTIONS 


OPERATING INSTRUCTIONS 
COMMA 


QUICK STARTUP PROCEDURE 

ERROR INFORMATION 

PERFORMANCE AND PROGRESS REPORTS 
DEVICE INFORMATION TABLES 

TEST SUMMARIES 

MAINTENANCE HISTORY 


SEQ 0002 
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1.0 GENERAL INFORMATION 
1.1 PROGRAM ABSTRACT 


THIS IS_A PDP-11/23 RESIDENT DIAGNOSTIC WHICH CHECKS THE FUNCTIONALITY 
OF A_ TSVOS MAGTAPE SUBSYSTEM WHILE CONNECTED TO A Po etsce: YSTEM 
(Q-BUS). THE PROGRAM PROVIDES ERROR MESSAGES WHICH IDENTIF 
FUNCTIONS THAT AID IN THE REPAIR OF THE DEVICE. THIS DIAGNOSTIC CONSIST OF 
TWELVE TEST. TEST 1-9 ARE EXECUTED IN SEQUENCE. TEST 10-12 ARE STAND ALONE TEST 
WHICH ALLOW THE OPERATOR TO PERFORM SPECIFIC FUNCTIONAL TEST ON SCOPE LOOPS 
ON CERTAIN FUNCTIONS. 


THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
RUNTIME SERVICES SOF TWARE emat Oe ans YO" ts THESE SERVICES PROVIDE 
THE INTERFACE TO T OR AND TO THE SOFTWARE ENVIRONMENT. 
THIS PROGRAM CAN BET USED WI H XXDP+, ACT, APT, SLIDE AND PAPER 
TAPE. FOR A COMPLETE SCSCRIPTION OF THE RUNTIME SERVICES, REFER 
TO THE XXDP+ USER'S MANUAL. THERE Ts" ‘y BRIEF DESCRIPTION OF 

THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 


1.2 SYSTEM REQUIREMENTS 

PDP-11/23 PROCESSOR AND MEMORY 

CAUTION: 2 oy gy Dh oh REQUIRES 32K WORDS OF MEMORY 

(28K USEABLE AND 4K RESERVED FOR I/0 PAGE) 

TSVOS MAGTAPE SUBSYSTEM (DRIVE AND CONTROLLER) 

CONSOLE TERMINAL 

PDP-11 DIAGNOSTIC SUPERVISOR (HSAAA.SYS VERSION 34 OR LATER) 
PDP-11 DIAGNOSTIC LOADER/MONITOR (XXDP-) 

1.3 RELATED DOCUMENTS AND STANDARDS 

DIGITAL EQUIPMENT CORPORATION DOCUMENTS: 


CHQUS XXDP+ USERS GUIDE; DOCUMENT NUMBER AC-F348E-MC 
DATE: 14 JULY 1960. 


2. TSVOS TRANSPORT SUBSYSTEM USER'S GUIDE; DOCUMENT NUMBER EK-TSVOS-UG-001 
DATE: AUGUST 1982 


3. TSVOS TRANSPORT SUBSYSTEM TECHNICAL MANUAL; DOCUMENT NUMBER EK-TSVOS-TM-001 
DATE: AUGUST 1982 


4. TSVOS TRANSPORT SUBSYSTEM INSTALLATION MANUAL; DOCUMENT NUMBER EK-TSVOS-IN-001 
DATE: AUGUST 1962 


SEQ 0003 


El 
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1.4 DIAGNOSTIC HIERARCY PREREQUISITES 

FUNCTIONAL PDP-11/23 CENTRAL PROCESSOR AND MEMORY 

FUNCTIONAL CONSOLE TERMINAL 

FUNCTIONAL STANDALONE DIAGNOSTIC SUPERVISOR 

FUNCTYONAL DIAGNOSTIC LOADER/MONITOR (XXDP-) 

1.5 ASSUMPTIONS 

ALL HARDWARE EXCEPT THE HARDMARE UNDER TEST IS ASSUMED TO WORK 
ne TAPE BEING USED ON THE TSOS TRANSPORT IS A KNOWN GOOD REEL 
CVTSA? HAS RUN SUCESSFULLY. 

2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+ USER'S MANUAL (CHQUS). 


2.1 COMMANDS ~ 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME . Soe 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VER 
BRIEF DESCRIPTION OF THEM. THE XXDP- USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 
START START THE DIAGNOSTIC FROM AN INITIAL STATE 
RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 
CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED CAFTER tC) 
PROCEED CONTINUE FROM AN ERROR HALT 
EXIT RETURN TO XXDP+ MONIT 2. ‘ oer OPERATION ONLY!) 
ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 

. CONSIDERED TO BE ACTIVE AT START TIME 
DROP DEACTIVATE A _UNIT 
PRINT PRINT STATISTICAL pag tlt CIF IMPLEMENTED 

BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 
FLAGS TYPE THE STATE OF ALL FLAGS (SEE weet 2.3) 
ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST pg Ss Sees. so 
YOU MAY, FOR EXAMPLE, TYPE “STA” INSTEAD OF “ 


rz 
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2.1.1 OPERATOR COMMANDS 


THE TSVOS DIAGNOSTIC IS A PDOP-11/23_ DIAGNOSTIC SUPERVISOR COMPATIBLE 
PROGRAM. ALL LOADING AND RUNTIME INSTRUCTIONS CAN BE REFERENCED IN THE 
CHQUS XXDP+ USERS GUIDE,DOCUMENT NUMBER AC-F348E-MC. THE USER ENTRY IS IN QUOTES. 


BOOT THE DIAGNOSTIC MEDIA 


.R VTSB?? 

DIAG. RUN-TIME SERVICES REV D. APR 79 
CVTSB-E-0 

**e*TSVOS LOGIC DIAGNOSTICeess 

UNIT IS TSVOS 


>DR 
2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED — WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY “DDDDD”". 


SWITCH EFFECT 


/TESTS:LIST EXECUTE ONLY THOSE TESTS SPECI TED IN 
THE LIST. y yt IS A STRING OF TEST 


um 
“WW 
N 


BE L 
/PASS :DDD00 EXECUTE DDDDD PASSES (DDDDD = 1 64000 ) 
/FLAGS :FLGS SET tims se FLAGS ARE DESCRIBED 


2 
7EOP : DDDDD REPORT okt OF oat MESSAGE AFTER EVERY 


DDDDD PASSES  : = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 

IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 

USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 


EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1-S/PASS: 1000/E0P : 100 


THE EFFECT A 4 THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 WILL BE 
EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) THE ay OF 
PASS MESSAGES WILL BE_PRINTED AFTER EACH 100 PASSES ONLY. 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. you MAY, 
FOR EXAMPLE, TYPE “/TES:1-S” INSTEAD OF “/TESTS:1-5". 


Gi 
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BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND . 


TESTS PASS FLAGS EOP UNITS 


2.3 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET yee THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 
FLAG SWITCH. THE ZFLAGS COMMAND MAY AL A 

+e FLAGS. WITH THE EXCEPTION OF Uy ¥ | gad AND ZFLAGS ewes 


COMMANDS AFFECT THE STATE OF THE F Sto THEY REMAIN SET 
CLEARED AS SPECIFIED BY THE LAST FLAG sur tcH 

FLAG EFFECT 
HALT ON ERROR - CONTROL IS RETURNED TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR 

TER INHIBIT ALL ERROR REPORTS 

IBR« INHIBIT ALL ERROR REPORTS EXCEPT 
FIRST LEVEL (FIRST LEVEL CONTAINS 
ER TEST AND UNIT) 

IXE* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO’S)_ 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE "BELL" ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 

ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO DIAGNOSTICS WHICH DO NOT SUPPORT 
STATISTICAL REPORTING) 

IDR INHIBIT PROGRAM DROPPING OF UNITS 

ADR EXECUTE AUTODROP CODE 

LOT LOOP ON TEST 


*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEQ 0006 


H1 
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SEQ 0007 


SEE THE XXDP+ USER’S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE 7 PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A “BELL” ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS :LOE : IER: BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES = PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING “CHANGE HW (L) 2?” 
YOU MUST ANSWER "“Y" AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN "PRELOADED” USING THE SETUP UTILITY (SEE 
CHAPTER 14 OF THE XXDP+ USER’S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A “Y", THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UNITS CIN DECIMAL). 


AFTER INITIAL STARTING OF THE PROGRAM (START COMMAND TO THE DIAGNOSTIC 
SUPERVISOR), THE PROGRAM WILL ISSUE THE “CHANGE HW?” Byes TaN TO ASK IF 
THE HARDWARE PARAMETERS ARE TO BE CHANGED (BY THE OPERATOR). 


ON A “N” (NO) RESPONSE TO THE “CHANGE HW?” QUESTION, THE DIAGNOSTIC WILL 
RUN USING THE DEFAULT VALUES FOR ALL QUESTIONS. THE DEFAULT ADDRESS AND VECTOR ARE: 


TSBA/TSOB = 172520, VECTOR = 224 


ON A “Y" CYES) RESPONSE TO THE QUESTION, YS: FOLLOWING QUESTIONS ee | 


VALUE, IF PRESENT, LOCATED 7 THE LEFT Or THE QUESTION MARK IS “THE 
DEFAULT eer THAT EL, BE TAKEN IF ONLY A CARRIAGE RETURN IS TYPED AS A 
RESPONSE. A “(D0)” IN A QUESTION INDICATES THAT A_ DECIMAL NUMBER IS 
REQUIRED AS A_ RESPONSE. AN "(OQ)" INDICATES AN OCTAL NUMBER IS BEING 
eves. wee bide ree THAT A LOGICAL RESPONSE IS TO BE MADE: 


@ UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT O 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSDB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


THE ADDRESS AND VECTOR QUESTIONS WILL BE ASKED FOR EACH OF THE NUMBER OF 
UNITS (CONTROLLERS) tg et IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED I Sree BEGINNING AT 0. UP TO FOUR UNITS CAN BE 
SELECTED FOR TESTING AS 


FOLLOWS: 
UP TO 4 TSVOS CONTROLLERS PER 11/23 AND UP TO 2 DRIVES PER CONTROLLER 





Ii 
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2.5 SOFTWARE QUESTIONS 


AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RESTART 
OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME DIAGNOSTIC SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY "CHANGE SW (L) ?” 
iF ,-OU_WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPING 

THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN "THe NEXT PARAGRAPH(S). 


THE FOLLOWING QUESTIONS ARE ASKED ON A START RESTART, OR CONTINUE. 
THEY ALLOW FLEXIBILITY IN THE WAY THE PROGRAM BEHA 


CHANGE SW (L) ? <TYPE_ Y TO CAUSE THE FOLLOWING 
QUESTIONS TO BE ASKED> 


INHIBIT ITERATIONS (L) N ? <TYPE “Y" TO PREVENT MULTIPLE 
ITERATIONS OF CERTAIN TESTS. 
THIS CAUSES EACH TEST PASS TO 
RUN AS QUICKLY AS POSSIBLE. 
Y RUNNI 


ONLY QUICK- NG LOGIC 
TESTS USE MULTIPLE 
ITERATIONS. > 


2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A_TABLE THAT DESCRIBES bs | DEVICES UNDER TEST. THE SIMPLEST 
ol a Mat bes os IS TO ANSWER ALL QUESTIONS FOR EACH 


A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


Ji 
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TO peer Te A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 
A ICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED ng IT. 
THESE UNITS ARE DESCRISED BY THE OCTAL NUMBERS O THROUGH 7 

IS ONE HARDWARE PARAMETER THAT CAN VARY AMONG =k CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE O OR 1. rar 8 SIMPLE WAY 
TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


@ UNITS (D) 2? 8<CR> 


UNIT 1 
SR ADDRESS (0) S 160000<CR> 


Cc 
SUB-DEVICE # (0) ? O<CR> 
Q-FACTOR (0) 0 ? 1<CR> 
2 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 1<CR> 
Q-FACTOR (0) 1 ? O<CR> 
CSR ADDRESS (0) - 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 4 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT S 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE #@ (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 
T6 
ADDRESS (0) ? 160000<CR> 
SUB-DEVICE #@ (0) ? S<CR> 
Q-FACTOR (0) 0 ? <CR> 
UNIT 7 
(0) ? 160000<CR> 
SUB-DEVICE @ (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 
UNIT 8 
CSR ADDRESS 160000<CR> 


S (0) 
SUB-DEVICE @ (0) 7<CR> 
Q-FACTOR (0) 1 2? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 


DO _NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 


NOT VERY EFFICIENT. 


THERE 


SEQ 0009 


K1 
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THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFICATIONS HOWEVER. 
RT THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


@ UNITS (0D) 2? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ?. 0,1<CR> 
Q-FACTOR (0) 0 ? 1,0<CR> 


CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE @ (0) ?_ 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 
CSR ADDRESS “£2? ? 160000<CR> 
SUB-DEVICE @ (0) ? 6,7<CR> 

Q-FACTOR (0) 0 ? 1<eh> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH . Ss 


THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIE 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS THE 
THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS SPECIFIED ONLY ONCE. IN THE SECOND PASS, FOUR 
THIS IS BEC OUR SUB-DEVICES WERE T THE 
woe TRUCT TELLS THE RUNTIME SERVICES TO INC T TA 
FROM THE FIRST NUMBER SECOND. IN THIS CASE, SUB-DEVICES 
‘ AND 5 WERE SPECIFIED. CIF THE SU8-DEVICE WERE SPECIFIED 
BY ADDRESSES, I D BE BY 2 SINCE T 
BE EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE AS BE 1 SPECTIVELY 


HE SUMED TO 60000 AND O RE 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 
SHOWN BELOW. 


@ UNITS (D) ? 8<CR> 

UNIT 1 

CSR ure (0) ? 160000<CR> 
CE @ (0) ? O-7<CR> 

Q-FACTOR (0) 0 ? 0O,1,0....1.1<CR> 


AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 
A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. 


Ls 
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2.7 QUICK START-UP PROCEDURE (XXDP-) 
TO START-UP THIS PROGRAM: 


1. BOOT XxDP- 


2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ CIF THERE 
IS A CLOCK) QUESTIONS 


3. TYPE “R NAME”, WHERE NAME IS THE NAME OF THE BIN OR BIC 
FILE FOR THIS PROGRAM 


4. TYPE “START” 

S. ANSWER THE “CHANGE HW” QUESTION WITH "“Y” 
6. ANSWER ALL THE HARDWARE QUESTIONS 

7. ANSWER THE “CHANGE SW” QUESTION WITH “N” 


WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 
DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 
ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 


3.0 ERROR INFORMATION 
3.1 TYPES OF ERROR MESSAGES 


THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 
ARE ALWAYS PRINTED UNLESS THE “IER” FLAG IS SET (SECTION 2.3). 

THE GENERAL ERROR MESSAGE IS OF THE FORM: 


NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC: XXXXXX 
ERROR MESSAGE 


»WHERE; NAME = DIAGNOSTIC NAME 
TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 
ERROR oe oy 


UNIT NUMBER = N (CN IS LAST UNIT IN PTABLE) 
TST NUMBER = TEST AND SUBTEST WHERE ERROR OC 
PC: XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
INFORMATION ABOUT _ ERROR, THESE ARE ALWAYS PRINTED UNLESS 
THE “IER” OR “IBR” FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR INFORMATION 
SUCH _AS REGISTER CONTENTS OR GOOD/BAD ode F THESE ARE ALWAYS 
PRINTED UNLESS THE “IER”, “IBR” OR “IXR” FLAGS ARE SET AE 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENER®L ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


M1 
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3.2 SPECIFIC ERROR MESSAGES 


E ERROR MESSAGES. EACH ERROR MESSAGE REPRESENTS DIFFERENT TYPES 


BELOW ARE SAMPL 
OF ERRORS DETECTED BY THIS DIAGNOSTIC 


ERROR MESSAGE EXAMPLE 1 


THIS ERROR IS INDICATIVE OF AN INCORRECT REGISTER OR STATUS WORD RE 
TO THE DIAGNOSTIC. THE FIRST PART DEFINES THE 

THE SECOND PART PRIOVIDES THE REGISTER BITS AND THEIR MNEMONICS FOR 

a REGISTER OR STATUS WORDS. THE THIRD PART IS THE EXPECTED AND RECEIVED 


TST: 016 FIFO EXERCISER 
CVTSB 0 


TEST 
1610 ON UNIT 00 TST 016 SUB 002 PC: 040624 


HRD ERR 
FIFO STATUS CIN WORD 9) INCORRECT AFTER WRITE FIFO 
TAPE BUS SIGNALS IN WORD #8: - DESIGNATOR <BIT #> 


PARERR<15> IEOT <12> IFMK <9> IRDY<6> 
IRESV2<14> IIDENT<11> IHER <8> IONL<5S> 
TRESV1<13> ICER <10> ISPEED<7> ILDP<4> 
TAPE BUS INAL WORD 99: 


i 
3 
: 


: 000000 
EXPD: 070217 RECV: 070217 
000074 : 000034 


ERROR MESSAGE EXAMPLE 2 
THIS ERROR SHOWS A FATAL FUNCTION ERROR FROM 
ERROR 


INSTANCE A_UNRECOVERABLE 
MAY BE DEFECTIVE. 


CVTSB HRD ERR 00159 ON UNIT 00 TST 001 SUB 005 PC: 026202 
COMMAND 


= {48010 
PACKET WORD @ = 000010 
= 000000 
= 000024 


IFPT<O> 


URNED 
TEST FUNCTION AND UNIT THAT FAILED. 


THE TAPE DRIVE,IN THIS 
OCCURED WHICH INDICATES THAT THE CONTROLLER 


SEQ 0012 
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ERROR MESSAGE EXAMPLE 3 


THIS ERROR SHOWS THAT THE MOTION BIT DID NOT GET SET WHILE DOING A REWING 
WITH EXTENDED FEATURES MODE ENABLED. 


CVTSB HRD ERR 00121 ON UNIT 00 TST 001 SUB 002 PC: 023306 
MOT BIT (XSTO) NOT SET DURING REWIND (EXTENDED FEATURES MODE) 
EXPD: 000312 RECV: 000112 XOR: 000200 
4.0 PERFORMANCE AND PROGRESS REPORTS 

AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 
TOTAL NUMBER OF ERRORS REPORTED SINCE THE Caen th WAS STARTED. 
THE “EOP” SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 
SUCCESSFUL RUN EXAMPLE (PDP-11/23) 

DR>STA/FLA: PNT : HOE : UAM 

UNITS (0D) ? 1 

UNIT O 

DEVICE ADDRESS (0) 172520 ? <CR> 

VECTOR (0) 224 ? <CR> 

CHANGE SW (L) ? N<CR> 

THE ABOVE COMMAND WILL START THE DIAGNOSTIC. THE COMMAND HAS THREE 


SWITCHES ON WHICH ARE “PRINT EACH TEST NBR AS EXECUTED” , “HALT ON 
ERROR” AND “RUN IN UNATTENDED MODE”. 


NOTE: THE UAM FLAG SHOULD BE USED TO PREVENT TEST 10-12 FROM BEING 
EXECUTED UNLESS THE OPERATOR WANTS THESE SPECIFIC TEST. 


: 001 INITIALIZE #3 TEST 
: 002 BASIC WRITE SUBSYSTEM MEMORY TEST 
003 DMA MEMORY ADDRESSING TEST 
: 004 RAM EXERCISER Veet 
: OOS FIFO EXERCISER TEST 
: 006 Staric TRANSPORT BUS CHECK 
: OO7 TRANSPORT BUS INTERFACE CHECK VIA LOOPBACK TEST 
: 008 ay MS DATA sone i CHECK TEST 


T EXECUTED TEST 


NO 
$ ST OUT NOT EXECUTED TEST 
012 STAND-ALONE SCOPE LOOPS NOT EXECUTED TEST 


O ERRORS 





Bo 
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NOTE: THE DIAGNOSTIC WILL RUN CONTINUOUSLY UNLESS A PASS LIMIT HAS BEEN 
SPECIFIED WITH THE “/PASS:” SWITCH. 


PROGRAM RUN TIMES 


THE AVERAGE RUN ‘aes OF THE PROGRAM ARE LISTED BELOW. THESE FIGURES 
TO BE USED AS GUIDE. _THE TIMING WAS DONE ON A PDP-11/23 
PROCESSOR WITH A LA- 34 CONSOLE. 


THE PROGRAM RUNS IN TWO MODES; NO ITERATIONS AND DEFAULT MODE. IN THE 
NO ITERATIONS MODE, EACH TEST IS RUN ONCE, WITH NO ITERATIONS. IN THE 
DEFAULT MODE EACH TEST IS REPEATED BY THE NUMBER OF TIMES INDICATED BY 
THE ITERATION COUNT. NO ITERATIONS MODE IS SELECTED BY ANSWERING THE 
INHIBIT ITERATIONS QUESTION WITH A “Y" (YES). 


TEST N/I ITER DEF 
NUMBER SECS. SECS SECS. 

1 15 SO 35 
2 1 6 5 
3 1 1 0 
4 110 540 430 
5 1 10 9 
6 10 120 110 
i i 1 3 2 
8 15 15 12 
9 17 17 13 


THE TIMES REQUIRED TO RUN TESTS 1 THROUGH 9 IN ONE COMMAND: 


Q.V. 2 MINS 19 SECONDS 
DEFAULT 11 MINS 35 SECONDS 


Ce 
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5.0 DEVICE INFORMATION TABLES 


WHENEVER THE PROGRAM IS STARTED, VIA THE STACRT) COMMAND, 
cine REQUESTS THE FOLLOWING P-TABLES PARAMETER 


CHANGE HW (L) ? 


® UNITS (D) ? <ENTER THE NUMBER OF M7196 CONTROLLERS 
PRESENT TO BE TESTED> 


UNIT 0 


DEVICE ADDRESS (0) 172520 ? <ENTER THE ADDRESS OF THE 
TSBA/TSOB REGISTER> 


VECTOR (0) 224 ? <ENTER ADDRESS OF INTERRUPT 
VECTOR> 


HE NUMBER OF 
UNITS CCONTROLLERS) SPECIFIED IN THE “@ UNITS?” QUESTION. LOGICAL UNIT 
NUMBERS ARE ASSIGNED IN ORDER, BEGINNING AT 0. UP TO FOUR UNITS CAN BE 


IN ADDITION, ON A START, RESTART OR CONTINUE THE SUPERVISOR 
mg CHANGES TO THE SOFTWARE OPERATING PARAMETERS, AS 


CHANGE SW (L) ? 


TEST 1: 


TEST 2: 


TEST 3: 


TEST 4: 


TEST 5: 
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6.0 TEST SUMMARIES 
INITIALIZE AFTER WRITE CHARACTERISTICS 
TEST DESCRIPTION: 


This test verifies that a Hardware Initialize commend 
invoked after a Write Cheracter istics command sets up 
the Message and Characteristic image blocks 
in the controller ram correctly. 


BASIC WRITE SUBSYSTEM MEMORY COMMAND 


THIS TEST VERIFIES THAT THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
BSELO SELECT CODE OF 0 (NO-OP) EXECUTES CORRECTLY. wh ALSO 
VERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
MODE FIELO IS REJECTED, THE TEST FURTHER VERIFIES MICROPROGRAM 
COMMAND DECODING AND HANDLING SEQUENCES. 


DMA MEMORY ADDRESSING 


This test verifies that the controller can properly —— 4 
access all a py pee oy gp neat (other then that occupied by t 
diagnostic and diagnostic supervisor code) for both reading cBATID 
and writing (DATO). Verified are the LSI-11 Bus drivers for all 
available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 


ee eS ee eee 
The LSI BUS drivers for all available address lines 

ere only checked when running on e 11/238 system with more than 

128K words of memory! 

SSSSSSSSS SSS SSS SS SSS SSS SS HSSSSSSSSSESSSSSSSSSSSESSSE SSE SSS SESS SSSESSessee 

RAM EXERCISER TEST 

THIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 

LOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY COMMAND 

TO EXERCISE THE CONTROLLER’S RAM MEMORY AND DMA LOGIC 

EXTENDED FEATURES SWITCH AND TIMERS A,B 

TEST DESCRIPTION: 

This test verifies the Invert Extended Features function 


can eg invert the Extended features switch and 
that internal timers A and 6B operate correctly. 





SE@ 0016 


EO 
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TEST 6: FIFO EXERCISER 


TEST DESCRIPTION: 


This test uses the Write Subsystem ony | command to 
verify the controller's FIFO and associated status and 
control logic. 


TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 


TEST DESCRIPTION: 


Write to TSSR ceni ster. to soft initialize the controller | 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
If Extended Features Hardwere Switch Clear then: 
Do Write Eecretes Write Miscellaneous to Set Extended Features. 
Do WRITE CHARACTERISTICS to select reserved unit 7 
Do ea Write Subsystem READ STATUS 
If any transport interface signals are asserted then Print Error 


TEST 6: TRANSPORT BUS INTERFACE LOOPBACK TEST 


TEST DESCRIPTION: 


This test verifies the controller's Transport Bus 
drivers, receivers, and signal loopback logic. Note 
that the Static Transport Sus test must have run 
correctly for this test to provide meaningful results. 


TEST 9: READ/WRITE DATA PARITY TEST 


TEST DESCRIPTION: 


This test verifies thet the Write Dete Parity generator 
and the Read Date Parity checker operate properly. The 
Transport Bus signel loopbeck mode is enabled and ea 
Set Wr perity function is executed. Then verious 
Write ystem Memory functions ere performed to 
write date to end from the FIFO in loopback mode. 

The program then checks to insure ea Read Date par ity 
error occurred. : 

A Reset FIFO is done and the Read Dete perity 

error bit is again tested to insure it cleared. 
Finally e Clogs wrong par ity function is done 

and it is verified dete word cen pess in loopback 
mode without setting Read Date parity error. 


SEQ 0017 


FO 
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TEST 10: MANUAL INTERVENTION 


TEST 11: 


THE MANUAL INTERVENTION > IS A STANDALONE ROUTINE (NOT REALLY A “TEST”) 
THAT ALLOWS THE OPERATOR TO CHECK OUT VARIOUS ELEMENTS AND FUNCTIONS OF 
THE SUBSYSTEM THAT CANNOT BE MANIPULATED BY “ PROGRAM ALONE. 

THIS ROUTINE IS STastee. IT 2 PRINTS OUT A MENU OF SELECTABLE 
SUBTESTS AND THEN WAITS FOR THE OPERATOR TO TYPE IN A SELECTION CODE. 

THE ONLY WAYS TO EXIT THIS ROUTINE AND RETURN TO THE DIAGNOSTIC SUPERVISOR 
ARE BY TYPING <CTRL-C> OR SELECTING CODE 6. 

SELECTION CODES AND SUBROUTINES ARE: 


CODE ROUTINE 
te) -_ PRINTS THIS MENU. 
1 TURN ON ALL M7196 LED INDICATORS 
2 TURN _OFF ALL M7196 LED ENO TCATORS 
3 OFFLINE/ONLINE ATTENTION TEST 
4 WRITE - ae dL vest 
5 PRINT EXTENDED TRANSPORT STATUS 
6 EXIT CRETURN TO SUPERVISOR) 
CONFIGURATION TYPEOUT 


THIS ITS A STANDALONE ROUTINE THAT PRINTS OUT ON THE CONSOLE TERMINAL 
THE CONFIGURATION OF THE M7196 MODULE AND TSVOS SUBSYSTEM. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENTED: 


1.0 STATE OF THE EXTENDED FEATURES SWITCH ON THE M7196: ON (EXTENDED 
FEATURES ENABLED) OR OFF CEXTENDED FEATURES DISABLED), 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE M7196: ON 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED), 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 

4.0 NUMBER OF TAPE TRANSPORTS CONNECTED TO THE CONTROLLER, 

5.0 UNIT SELECT CODE — STATE CONLINE/OFFLINE, WRITE ENABLED/PROTECTED) 
OF EACH CONNECTED TRANSPORT. IN ADDITION, THE WILL INDICATE, 


PROGRAM 
FOR EACH ON-LINE TRANSPORT, WHETHER OR NOT IT IS EQUIPPED WITH THE 
EXTENDED TAPE STATUS READOUT FEAT URE. 


SE@ 0018 


Ge 
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TEST 12: SCOPE LOOPS 


THIS IS A_ STANDALONE ROUTINE PROVIDING A NUMBER OF TIGHT “SCOPE 
ge ee FOR DEBUGGING BASIC se 5 Me ACCESS PROBLEMS WITH 
THE M7196 MODULE. THESE SCOPE LOOPS CAN BE USED WHEN THE 
“LOOP ON ERROR” OR “LOOP ON TEST (SeTest. tg MS: DON'T 
LOW THE OPERATOR TO ZERO I PROBLEM IN THE EARLY 


HARDWARE DIP SWITCHES). THE FOLLOWING MENU OF SCOPE LOOPS ARE 
AVAILABLE: 


: 


SCOPE LOOP 


HELP. PRINT THIS MENU. 

TSBA READ ACCESS 

TSSR_READ ACCESS 

INITIALIZE (TSSR WRITE ACCESS) 

TSOB HIGH BYTE WRITE ACCESS 

TSOB LOW BYTE WRITE ACCESS 

TSDB MAINTENANCE -MODE WORD WRITE ACCESS 

TSDBX (TSSR HIGH BYTE) WRITE ACCESS 
cox TENDED FEATURES SWIT 3 MUST BE ON 

TO USE SELECTION CODE 7) 
8 EXIT CRETURN TO SUPERVISOR) 


FOR SCOPE LOOPS THAT WRITE INTO REGISTERS, THE PROGRAM PROMPTS 
THE OPERATOR FOR THE DATA TO BE WRITTEN,LIMITS ON THE DATA PATTENS 
ARE 0-377, TYPING <RETURN> CAUSES AN EXIT FROM THE SCOPE LOOP BACK TO MENU LEVEL. 


NOUS UIE O 


7.0 MAINTENANCE HISTORY 


REVISION A - MARCH 1982 
REVISION B - APRIL 1963 


MODIFIED THE DIAGNOSTIC TO HANDLE 11/23A'S 
WITH MORE THAN 256KB OF MEMORY. CHANGED 
TEST 3 SUBTEST 3 SO IT WON'T TRY TO CREATE 
NON-EXISTANT MEMORY ADDRESS (NXM). 


REVISION C - JUNE 1984 
MINOR CHANGES FOR “ORION” CPU 
ELIMINATED CPU TYPE IDEN/IFICATION MESSAGE. 
REVISION D - JULY 1985 
CHANGES MADE TO BECOME COMPATIBLE WITH THE 
XXDP+ V2.1 XM ( ‘.. 


EXTENDED MONI 
ALLOW THE EXTENDED FEATURES TO WORK I 
EITHER THE ON OR OFF POSITION. 


He 


TAT J - - : pP . 
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REVISION E - APRIL 1987 
CHANGES MADE TO ALLOW DIAGNOSTICS TO WORK WITH 


THE NEW TSVOS MICROCODE (REVISION 2). THE NEW 
TSVOS MICROCODE ALWAYS IN EXTENDED FEATURE MODE. 


te 


TSV2 - PROGRAM 


002000 
002000 


HEADER 


002124 
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TSV2:: 


see 


- TITLE 
.SBTTL 


-MCALL 
Svc 


- ENABLE 
-NLIST 
- ENABL 


. =2000 
BGNMOD 


TSV2_ - PROGRAM HEADER 
PROGRAM HEADER 


Svc 


s INITIALIZE SUPERVISOR MACROS 


LC 
BEX, CND 
ABS ,AMA 


TSv2 


s THE PROGRAM HEADER IS THE INTERFACE BETWEEN 
s THE DIAGNOSTIC PROGRAM AND THE SUPERVISOR. 


L$NAME: : 


L$REV:: 
L$DEPO: : 
LS$UNIT:: 
L$TIML:: 
L$HPCP:; 
L$SPCP:: 
L$HPTP:: 
L$SPTP:: 
L$LADP: : 
L$STA:: 
L$CO:: 
LSDTYP: : 
LSAPT:: 
L$OTP:: 
LSPRIO:: 


POINTER BGNSW,BGNSFT BGNAU, BGNDU , BGNRPT 
HEADER CVTSB.E,0,655. 

On ReNdSTIC NAME 
.ASCII /C/ 
[ASCII /V/ 
"ASCII /T/ 
“ASCII /S/ 
“ASCII 78/ 
“BYTE 
"BYTE 9 
"BYTE 0 

;REVISION LEVEL 
.ASCII /€/ 

a 
.ASCII /0/ 

;NUMBER OF UNITS 
.WORD 0 

;LONGEST TEST TIME 
.WORD 655. 

sPOINTER TO H.W. QUES. 
.WORD LS$HARD 

;POINTER TO S.W. QUES. 
.WORD LS$SOFT 

;PTR. TO DEF. H.W. PTABLE 
.WORD  L¢HW 

:PTR. TO S.W. PTABLE 
.WORD L$SW 

;DIAG. END ADDRESS 
.WORD LSLAST 

sRESERVED FOR APT STATS 
.WORD 0 
.WORD 0 

;DIAGNOSTIC TYPE 
.WORD 0 

;APT EXPANSION 
.WORD 0 

PTR. TO DISPATCH TABLE 
WORD L$DISPATCH 


sDIAGNOSTIC RUN PRIORITY 


SEQ 0021 


Je 
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PROGRAM HEADER 


. WORD 
LSENVI:: 

. WORD 
LSEXP1:: 

. WORD 
LS$MREV:: 

.BYTE 

.BYTE 
LSEF:: 

. WORD 

. WORD 
L$SPC:: 

. WORD 
L$DEVP:;: 

. WORD 
L$REPP:: 

. WORD 
LSExP4:; 

. WORD 
LSEXPS:: 

. WORD 
L$AUT:: 

. WORD 
L$DUT:: 

. WORD 
L$LUN:: 

.WORD 
LSDESP:: 

. WORD 
L$LOAD: : 

EMT 
LSETP:: 

. WORD 
LSICP:: 

.- WORD 
LSCCP:: 

. WORD 
L$ACP:: 

. WORD 
LSPRT:: 

. WORD 
LSTEST:: 

.WORD 
LSDLY:: 

. WORD 
L$HIME:: 

. WORD 


° 
5 sFLAGS DESCRIBE HOW IT WAS SETUP 
> sEXPANSION WORD 
;SVC REV AND EDIT @ 
C$REVISION 
CSsEDIT 
‘ ;DIAG. EVENT FLAGS 
0 
0 


s POINTER TO DEVICE TYPE LIST 
L$OVTYP 
sPTR. TO REPORT CODE 


L$RPT 
0 
° 
;PTR. TO ADD UNIT CODE 
L$aAU 
again :PTR. TO DROP UNIT CODE 
> ;LUN FOR EXERCISERS TO FILL 
sPOINTER TO DIAG. DESCRIPTION 
L$DESC 
;GENERATE SPECIAL AUTOLOAD EMT 
E$LOAD 
‘ ;POINTER TO ERRTBL 
;°TR. TO INIT CODE 
L$INIT 
:PTR. TO CLEAN-UP CODE 
L$CLEAN 
;PTR. TO AUTO CODE 
L$AUTO 
;PTR. TO PROTECT TABLE 
L$PROT 
s :;TEST NUMBER 
6 ;DELAY COUNT 
‘ ;PTR. TO HIGH MEM 


SEQ 0022 


Ke 
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SEQ 0023 
DISPATCH TABLE 
965 -SBTTL DISPATCH TABLE 
967 
3ee 
968 : THE DISPATCH TABLE CONTAINS THE STARTING ADDRESS OF EACH TEST. 
ba 44 ; IT IS USED BY THE SUPERVISOR TO DISPATCH TO EACH TEST. 
go 

971 
972 002122 DISPATCH 12 

002122 000014 . 12 

002124 L$DISPATCH: : 

002124 023036 -WORD Tl 

002126 024016 -WORD Te 

002130 026010 -WORD 13 

002132 031404 -WORD 14 

002134 034174 -WORD TS 

002136 037766 -WORD 16 

002140 0501 -WORD 17 

002142 051360 -WORD 18 

002144 062206 -WORD T9 

002146 -WORD 110 

002150 074114 -WORD Tll 

002152 077624 -WORD Tle 


Le 
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DEFAULT HARDWARE P-TABLE 


SEQ 0024 
-SBTTL DEFAULT HARDWARE P-TABLE 


; THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
; THE TEST-DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
} IS IDENTICAL TO THE STRUCTURE OF THE RUN-TIME P-TABLE. 
g°= 


BGNHW OFPTBL ;DEFAULT HARD-P-TABLE 
. WORD L10000-L $HW/2 

L$HW:: 

OFPTBL:: 
-WORD 172520 s 1ST COF 2) REGISTERS. 
-WORD 224 3; INTERRUPT VECTOR 
— PRIO4 3; INTERRUPT PRIORITY. 


Me 
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SOFTWARE P-TABLE 


SEQ 0025 


b+ .SBTTL SOFTWARE P-TABLE 

990 pee 

991 3 THE SOFTWARE P-TABLE CONTAINS THE VALUES OF THE PROGRAM 

be 3; PARAMETERS THAT CAN BE CHANGED BY THE OPERATOR. 

gee 
994 002164 BGNSW SFPTBL 
002164 000004 -WORD 110001-L$SW/2 
002166 L$SW:: 

995 002166 SFPTBL:: 

996 000000 TRANSTST:: . WORD ; ENABLE TEST OF TRANSPORT(S) IF =1 

997 002170 000000 NOITS:: -WORDB O : oat ITERATION OPTION. 

998 3 O = ITERATE. 

999 3 ’ NZ = INHIBIT ITERATE. 
1000 002172 000017 LERRMAX . WORD 15. ; LOCAL (PER TEST) ERROR LIMIT 
1001 002174 000310 -WORD 200. ; GLOBAL (PER UNIT) ERROR LIMIT 
1002 002176 SW 

002176 L10001 
1003 


N2 
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SOFTWARE P-TABLE 
1014 -UTLE 
. SBTTL 
BGNMOD TSV3 


-SBTTL GLOBAL EQUATES SECTION 


GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
USED IN MORE THAN ONE TEST. 


EQUALS ; GET STANDARD EQUATES. 
; BIT DIFINITIONS 

100000 

40000 


1035 
1039 002176 


EVENT FLAG DEFINITIONS 
EF32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


-START== 32. + START COMMAND WAS ISSUED 
-RESTART== 31. + RESTART COMMAND WAS ISSUED 
-CONTINUE== 30. s CONTINUE COMMAND WAS ISSUED 
-NEW== 29. s A NEW P HAS BEEN STARTED 
-PUR== 26. s A POWER-FAIL/POWER-UP OCCURRED 


te 
EF 


--9ag 


s PRIORITY LEVEL DEFINITIONS 





B3 
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177576 
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BRIO7== 340 
PRIO6== 
PRI0S== 240 
PRIO04== 
PRIO3== 140 
PRIO2== 100 
PRIO1== 40 
PRI00== 0 
: 
;OPERATOR FLAG BITS 
Q 
EVL== 4 
LOT== 10 
ADR== 
TDuU== 40 
ISR== 100 
UAM== 200 
BOE== 400 
PNT== 1000 
PRI== 2000 
IXE== 4000 
IBE== 10000 
IER== 20000 
LOE== 40000 
HOE== 100000 

KT11 7 
.SBTTL MEMORY MANAGEMENT DEFINITIONS 
;*#KT11 VECTOR ADDRESS 


MMVEC= 

*KT11 STATUS REGISTER ADDRESSES 
gRo= 177572 

IF 


-IF NB 
s*USER "I" PAGE DESCRIPTOR REGISTERS 
UIPDRO= 177600 


IF 
3#USER “D” PAGE DESCRIPTOR REGISTORS 
UDPDRO= 17 


sDEFINE MEMORY MANAGEMENT REGISTERS 


SEQ 0027 
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MEMORY MANAGEMENT DEFINITIONS 


SE@ 0028 


s#USER “I" PAGE ADDRESS REGISTERS 
UIPARO= 177640 
UIPAR1= 177642 


;#USER “D” PAGE ADDRESS REGISTERS 
UDPARO= 177660 


: 
IF NB 

*SUPERVISOR “I” PAGE DESCRIPTOR REGISTERS 
IPDRO= 172200 


"IF 
*SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 
SDPDRO= 172220 


;#SUPERVISOR “I” PAGE ADDRESS REGISTERS 
IPARO= 172240 


a 
s*SUPERVISOR “D” PAGE ADDRESS REGISTERS 
172260 


SOPARO= 

SOPAR1= 172262 
SDPAR2= 172264 
SOPAR3= 172266 
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MEMORY MANAGEMENT DEFINITIONS 


SE@ 0029 


SDPAR4= 172270 


172300 KIPDRO= 172300 


172302 KIPOR1= 172302 
172304 KIPDR2= 172304 
172306 KIPOR3= 172306 
172310 KIPDR4= 172310 
172312 KIPDORS= 172312 
172314 KIPOR6= 172314 
172316 KIPDR7= 172316 

. IF _NB 

KERNEL “D" PAGE 

DESCRIPTOR REGISTERS 

KDPDRO= 172320 


s*KERNEL “I" PAGE ADDRESS REGISTERS 
172340 KIPARO= 17. 
172342 KIPARI= 172342 
172344 KIPAR2= 172344 
172346 KIPAR3S= 172346 
172350 KIPAR4= 172350 
172352 KIPARS= 172352 
172354 KIPAR6= 172354 
172356 a yy 172356 
s*#KERNEL “D" PAGE ADDRESS REGISTERS 
KDPARO= 172360 


E3 
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TSVOS REGISTER AND PACKET DEFINITIONS 
-SBTTL TSVOS REGISTER AND PACKET DEFINITIONS 
; 
s SOME GENERAL EQUATES. 
; 
ERRVEC== 


TTIVEC== 


s POINTER TO ERROR VECTOR FOR BUS TIME OUT. 
60 ; INT ONSOLE INPUT 
TTICSR== : 
; 
‘ 


TTIBFR== 
BDVPCR== 


ONS UF 
6DV11 PAGE CONTROL REGISTER 
{BIT DEFINITIONS FOR TSSR REGISTER 


eres, op BP 


BIT10 
BITS!B1ITS 
BIT7 


OFL= BIT6 BI 
FATERR= BIT4!B1ITS iFATAL TERMINATION ERROR CODES 
TERCLS= BITS!84T2!B1T1 ; TERMINATION CODES 


‘BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 0 
3(XSTO) 


TAPE MARK oevecreD 





ro 
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TSVOS REGISTER AND PACKET DEFINITIONS 


er, -) meh FOR EXTENDED STATUS REGISTER 1 
; 


Xi. OL.T = BIT15 oT LATE 


X1.UNC = > BITS TUNCORREC TABLE. DATA OR HARD ERROR 

3° 

;BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 2 

3(XST2) 

ed 

X2.0PM = BITI5 2 tg lt IN PROGRESS (TAPE MOVING) 

X2.RCE = BIT14 48 AM CHECKSUM 

X2.SPARE= B1T13-BIT12-61 1} -B219-O116 sNOT USED BY TSVOS (CALWAYS=0) 
X2.WCF = BIT10 sWRITE CLOCK ag Oy (FIFO NOT EMPTIED BY TRANSPORT) 
X2.EXTF = BIT7 iIF WRITE CHAR CMD THEN = EXTENDED FEATURES ENABLED 
X2.BUFE = BIT6 3IF WRITE CHAR CMD THEN = BUFFERING ENABLED 
X2.REV = 000077 SIF WRITE CHAR CMD THEN = MICROCODE REVISION LEVEL 
X2.UNIT = BIT2-BIT1-B1T0° :IF GET STATUS THEN = CURRENTLY SELECTED UNIT NO. 
3° 

sBIT DEFINITIONS FOR EXTENDED STATUS REGISTER 3 

3(XST3) 

X3.MDE = 177400 sMICRO-DIAGNOSTIC ERROR CODE 

X3.SPARE= BIT7 sNOT USED BY TSVOS 

X3.0PI = BIT6 sOPERATION INCOMPLETE 

X3.REV = BITS sREVER 

X3.TRF = BIT4 s TRANSPORT RESPONSE FAILURE 

X3.D0CK = BITS ;DENSITY CHECK 

X3.MBZ =BIT2-BIT1 sNOT USED ALWAYS O 

X3.RIB = BITO sREVERSE INTO BOT 


BIT DEFINITIONS FOR EXTENDED STATUS REGISTER 4 


sHIGH SPEED 
X4.RCE = artis ;RETRY Cert Ex 
X4.TSM = BIT13 t T SPECIAL MODE 
X4.MBZ = BIT ig-BIT11 BI 10-BIT9-BITS por USED ALWAYS 0 
X4.WRC = 000377 WRITE RETRY COUNT FIELD 


sTSSR TERMINATION CODES (BIT 0-2) 

3 

g2 
TSREJ= 342 sCOMMAND REJECTED 
UNREC= 6 sUNRECOVERABLE ERROR 


SEQ 0031 


G3 
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sDEVICE REGISTER OFFSETS 


+ 
8 
z 
u 
8 
Wwnrroo 


3° 


sTSDB/TSBA REGISTER 
sTSOB/TSBA REGISTER HIGH BYTE 


sTSSR REGISTER 


sTSSR REGISTER HIGH BYTE 


: TSDB ADDRESS BIT DEFINITIONS 


Ai716 == BIT1-BITO 


+ COMMAND DEFINITIONS 


-GETSTAT 


30 DVT VV U~ 
v 
oO 
a) 
H 
+ 
3 


PACKET HEADER 


. ACK 


- CVC 
opp 


- SWB 


17 sGET_STATUS 
13 ; rCONTROL CO 


12 

11 iF 
10 iP0S 
6 3SUB 


sADDRESS BITS 17:16 ARE IN 1:0 


ONTROL COMMANDS 


Lt WRITE 


5 sWRIT 
4 SWRI TE CHARACTERISTICS 
1 READ 


WORD BIT DEFINITIONS 


sBUFFER AVAIL FOR CONTROLLER 


eee VOLUME CHECK 


SEQUENCE OF DATA BITS 
TES_IN MEMORY 


BIT1> BY 
BETH eexviosertSter78 EXTENDED COMMAND MODE FIELD 
117 NreRSUET 


-I€ 
-FMT= BIT6!811S 
CMD = 


T ENABL 
PACKET HEADER TYPE CALWAYS=0) 
MAJOR COMMAND FIELD 


sRELEASE BUFFER 

sREWIND 

3NO-OP 

sREWIND IMMEDIATE INTERRUPT 
} SECURITY ERASE 


SEQ 0032 


H3 
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SEQ 0033 


* CONTROLLER RAM DEFINITIONS 


RMCHBEG = 167 

RMCHEND = 200 
RMPKTBEG= 301 
RMPKTEND= 210 
RMMSGBEG= 215 
RMMSGEND= 234 


3° 


sCHARACTERISTICS 78 pare BEGIN RAM ADDRESS 
:CHARACTERISTICS. I A END RAM ADDRESS 
sCOMMAND PACKET BEGIN RAM ADDRESS 

sCOMMAND PACKET END RAM ADDRE 
iMESSAGE BUFFER BEGIN RAM ADDRESS 
sMESSAGE BUFFER END RAM ADDRESS 


Ww 
wn 


; 
sREGISTER DEFINITIONS IN THE MESSAGE BUFFER 


xXSTO== 6 
XSTl== 6. 
XST2== 10. 
XST3== 12. 
XST4== 14, 


3° 


iOFFSETS TO WORD LOCATIONS IN PACKET DEFINITIONS 


PKLOW 
PKHI 
PKBCNT 


EXBCNT=10 


2 
4 
6 


sLOW ORDER CHARACTERISTIC DATA POINTER 
sHIGH ORDER CHARACTERISTIC DATA POINTER 
sNUMBER OF BYTES IN DATA PACKET 


sNUMBER OF BYTES IN EXTENDED DATA PACKET 


DATA PACKET OFFSETS FOR WRITE SUBSYTEM COMMAND 


SE 
SELDATA 


&nuro 


13 
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SEQ 0034 
TSVOS REGISTER AND PACKET DEFINITIONS 
1246 t¢ 
1347 ;BSELO SELECT CODES FOR WRITE SUBSYSTEM COMMAND 
1349 bu. NOP = 0 ;NO-OP 
1350 000001 PU_RORAM =i ;READ RAM 
1351 900002 Pu: WTRAR = 2 MATTE RAR 
e s 3 

i538 00008 PW WFIF -4 RITE Piro 
1554 000005 PU_RDSTAT -5 }READ STATUS 
1555 000006 PWLUCTL =6 }WRITE TAPE CONTROL 
1356 000007 Pu WEMT : 7 WRITE TAPE FORMAT 
1357 000010 PW WMISC = 10 }WRITE MISCELLANEOUS 
1358 000011 Pu: = il ;WRITE NPR CONT 
1559 000020 Pu D22 ° {D0 MICROTEST 22 
1560 000021 Pw!D11 = 53 ;D0 MICROTEST 1 
1361 000022 PuD13 = 52 00 MICROTEST 1 
1362 000023 Pu_NO1321 = 33 ;DISABLE MICROTEST 11 AND 13 
1263 000024 Pu. = 5a ;READ EXT. TAPE STATUS (NOT SUPPORTED BY ALL TRANSPORTS 
1365 - 
1266 }BSEL1 CODES FOR WRITE TAPE CONTROL 

eo 
1368 WC. IFAD = 8177 STEAD - FORMATTER ADDRESS 
136 000100 WC -TOTAD = BIT6 SITADO - TRANSPORT ADDRESS BIT 0 
1370 wc /T1TAD = BITS }ITAD1 - TRANSPORT ADDRESS BIT 1 
1571 000020 WC LTSRESV = B1T4 SIRESVS - 
1272 000010 we | TREW = BIT3 ;IREW 
1373 000004 wc | TRWU = BIT2 ;IRWU  - REWIND AND UNLOAD 
1374 000002 WC IFEN = BITI SIFEN - FORMATTER ENABLE 
15 000001 we | IGO = BITO :G0 
1376 
1277 z° 
1278 }BSEL1 CODES FOR WRITE FORMAT 

- 
1280 000200 WF .IMISP = BIT7 ;IMISP - HIGH 
1381 000100 uF /IuRT = BIT6 ‘TuRT _ URITE 
1382 000040 uF IREV = BITS ;IREV - REVERSE 
1583 000020 UF LIWEM = BIT4 ‘TuEM «6 -«WRITE FILE MARK 
1384 000010 WF SIEDIT = B1T3 SIEDIT - EDIT 
1385 000004 UF LTERASE = BIT2 SIERASE - ERASE 
1386 000002 uF /ISRESV * BIT1 ;IRESVS - RESERVED 03 
1287 000001 UF | 14RESV = BITO }IRESV4 - RESERVED 04 
1289 3° 
1590 }BSEL1 CODES FOR WRITE MISCELLANEOUS SUBCOMMAND 


: 


1292 000200 MS .EXT = B1T7 s INVERT SENSE OF EXTENDED FEATURES SWITCH 
1293 000020 MS .RSFIFO = BIT4 iRESET FIFO AND INPUT PARITY ERRORR 

1294 000010 MS .RSTAPE = BITS APE STATUS Fe 2 FLIP-FLOPS 

1295 000006 MS.ATTN = BIT2:68IT1 ;ATTENTION TRIGGER FIELD 

1296 000001 MS .RSD = BITO sRESET TIMER A,B THEN DELAY TIMES IN SEL2 
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TSVOS REGISTER AND PACKET DEFINITIONS 


3 


id 
; MS.ATTN SUBCODES 
| we 
sNO-OP (NOTHING TRIGGERED ) 
7 teh | 7. pee a LINE TRANSISTION 
sFORCE NON-FATAL RAM ERROR (FORCES ERRCODE 54) 
;FORCE FATAL RAM ERROR (CAUSES SCE TO SET) 


: 
; WRITE SUBSYSTEM WRITE NPR BSEL1 BIT DEFINITIONS 


-IR s INTERRUPT REQUEST (0-1 TRANSITION) 
.OuT 3 TAPE _ OTREL TIO OUT (O= IN) 


- LOOP sENABLE T LOOPBACK 
. WRP ;WRITE CORRECT PARITY (SET=0 TO WRITE WRONG) 


; READ STATUS MESSAGE BUFFER BIT DEFINITIONS 
i 


Exrosesaasaeess 


ee 
Ww 
ererey 
Ouse 


;WORD €9 BYTE 2 oe MISS 
OUT RDY H 

IN RDY H 

TIMER A FLAG H 
TIMER B FLAG H 


~ 
uUunw 
erer 
Won 


EP err ah a hey Setchch 
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SPECIAL MACROS AND OPDEFS. 
.SBTTL SPECIAL MACROS AND OPDEFS. 
SAVE GENERAL REGS 1 TO S 
~ 


-MACRO SAVREG 
JSR RS .REGSAV 
. ENDM 


“MACRO TO FORCE AN ERROR 

“MACRO FORCERROR TAG ,NOTSSR 

TIE NDF LISTALL, .NLIST 

F 8 NOTSSR 
MOV 

.ENDC 


hb bh ee 


eH 


TSSRCRS),R1 sREAD TSSR 
MOV FORCER,FORCER ;IS FORCER SET? (LEAVE C BIT ALONE) 
BNE TAG BR IF YES 


PERSE SIUM aRUeSSSESESESS 


-NLIST 
-ITIF NDF LISTALL, .LIST 
-LIST 


; “MACRO TO FORCE AN wwe TO AVOID SECTION ITERATIONS 
LABEL IF FORCER IS NEGATIVE 

S AND EXIT ON 1 ERROR SET 
ERRORS AND ITERATIONS SET FORCER TO 1. 
- MACRO TAG 
-NLIST 
-ITIF_NOF LISTALL, .NLIST 
-LIST 


FORCER,FORCER ;IS FORCER NEGATIVE? 
TAG BR IF YES 


& 
be 


-NLIST 
-IIF NDF LISTALL, .LIST 
-LIST 


id 

3; MACRO TO INCREMENT ERROR COUNTS 

’ het 

-MACRO NEXT.ERRNO 

-NLIST 

333.1IF NDF LISTALL, .NLIST 
ERRNO= > | 

195.5" NDF LISTALL, .LIST 

-LIST 


SSSeSsSessss 
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SEQ 0037 
SPECIAL MACROS AND OPDEFS. 

395 ° 
1396 ;MACRO TO PERFORM XOR 
1397 - 
1398 
1399 x A.B 
400 A, -(SP) 
1401 BIC B.(SP) 
1402 BIC 
1403 BIS (5P)-.8 
1404 
1405 
1406 000000 EN=0 INITIALIZE ERROR NUMBER 
1407 “SBTTL FORCER - FORCE ERROR FLAG 
1409 , 
1410 ; THE FOLLOWING LOCATIONS MAY BE PATCHED BY THE USER 
1413 ; TO OBTAIN THE RESULTS DESCRIBED FOR EACH. 

; 
1413 
1414 002176 000000 FORCER: : ry FORCE TYPE ALL HARD ERRORS (THE ONES CALLED - 
1415 ; - BY THE MACRO “IFERROR"). AN ERROR NEED NOT 
1416 ; - EXIST, JUST ASSUME AND TYPE THE MESSAGE. 


M3 


TSV3 - GLOBAL AREAS MACRO VOS.03 Tuesday 28-Apr-87 08:29 Page 353 
GLOBAL DATA SECTION 
-SBTTL GLOBAL DATA SECTION 
i THE GLOBAL pie test CONTAINS DATA THAT ARE USED 


IN MORE THAN 
ace 


; 

s THE FOLLOWING DATA ARE FOR EACH UNIT AT INIT TIME. 
sSINGLE UNIT DEFAULTS (L STEDS ARE IN THE DEFAULT P-1ABLE. 
“to ad SWITCH 

sUNIT @ UNDER pig HE 
;QUICK “VERIFY F LAG. 

ADDRESS OF CSR FOR CURRENT DEVICE 


sNUMBER OF TEST HIS PASS 

; REMAINING ITERATION Oe FOR TEST 
sNUMBER OF DEVICE UNDER TEST 

iSET IF car ERROR IS DETECTED IN TEST 


sSET IF TAPE INTERRUPT WAS RECEIVED 
sEXTENDED FEATURES SOFTWARE SW O=OFF;1=0N 


sREVISION L 
sBUFFER ENABLE SWITCH SW O=OFF ;1=ON 
;EXPECTED RAM DATA FOR PRAMPKT ROUTINE 
sRECEIVED RAM DATA FOR PRAMPKT ROUTINE 
yy a MEMORY ERROR 


Ria bene MEMORY ERROR 
‘DATA AD FROM RAM acont OR 1 a BUF AREA 


NE TEMP 
TED MESSAGE BUFFER DATA 
CEIVED MESSAGE BUFFER DATA 
s TEMPORARY STORAGE FOR PRINT 


. WORD 

WORD 
. WORD 
. WORD 
- WORD 
- WORD 
- WORD 
. WORD 
- WORD 
. WORD 
- WORD 
- WORD 
- WORD 

WORD 
- WORD 
. WORD 
- WORD 
- WORD 
-BLKW 
- WORD 

WORD 

WORD 
- WORD 
. WORD 
~ WORD 
. WORD 
. WORD 
-BLKB 

BLKB 

BLKB 
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TSTBLK 


- TEST DATA TABLE 
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\SBTTL TSTBLK - TEST DATA TABLE 
3° 
;THIS TABLE CONTAINS TEST DATA USED IN SEVERAL TESTS 
HIN SEQUENCE THE DATA IS: 
: ALL ZEROS 
ALL ONES 
WALKING ONES 
WALKING ZEROS 
ALTERNATING ONES AND ZEROS 


TSTBLK:: 

sALL ZEROS 

sALL ONES 

sDATA FOR WALKING ONES 


sDATA FOR WALKING ZEROS 


= 


sALTERNATING ONES, ZEROS 
sALTERNATING ONES, ZERO OPPOSITE FROM ABOVE 


- WORD 
- WORD 
- WORD 
- WORD 
. WORD 
WORD 
. WORD 
. WORD 
- WORD 
WORD 
WORD 
- WORD 
. WORD 
- WORD 
- WORD 
- WORD 
WORD 
WORD 
- WORD 
. WORD 
WORD 
- WORD 
- WORD 
WORD 
- WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 
WORD 





B4 


TSV3 - GLOBAL AREAS 


GLOBAL ENVIRONMENT STORAGE 


564 003200 


003400 
003402 


000000 100000 000000 
000000 000000 


177777 


bunny : 


CTABE: : 
sERROR STATISTICS TABLE 


0,0 
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SEQ 0040 


-SBTTL GLOBAL ENVIRONMENT STORAGE 
; 
sSTORAGE FOR DEVICE REGISTERS 


100000 
1OXXXX 
160000 


160001 
14XXXX 


9.100000,0,0, 
0,0,0,0,0 


S555) SSSSESESGES 9 5508 | 


_ =r DEVICE REGISTERS... 
.-FOR MULTI-UNIT CHECKOUT. 


“DROPPED UNIT” FLAG. 
sINHIBITS CODE IN “CLEAN-UP”. 
sFLAG TO SAY NO DEVICE. 


sSOME TEMP LOCATIONS. 
sXXDP+ COMM BLOCK oeheee 


AND S 
:LAST oie iN FREE SPA 

KT11, MEM AVAIL FLAG - 

: © = <24K OR NO KT - 
- NZ = >24K AND KT. 
SET BY TEST ROUTINES TO FLAG >26K UNDER TEST 
;SET IF WE CAN TEST CLEARED OTHERWISE 
iNXM LO ADDRESS BITS 
NXM HI ADDRESS BITS FOR DAL’S 16-21 


| menses o ooo0e0°o0 oO CO = 


+0 
— BLOCK ADDRESS FOR 32K START 


FACTUAL DATA 
sEXPECTED DATA 


;CONFIGURATION TABLES. 
; CONFIG WORK . 


'oooo oooo 


1 sEND OF MEM TABLE. 
(1 WORD PER UNIT), 64 UNITS MAX: 

UNIT NOT TESTED 

UNIT DROPPED, “NON-EXISTENT DEVICE REGISTER 


UNIT DROPPED, NOT IDLE A 
UNIT DROPPED, ENCOUNTERED XXXX ERRORS 


s1=SKIP SUBTEST O=NO SKIP OF SUBTEST 


C4 
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GLOBAL TEXT MESSAGES 
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123 


126 


-SBTTL GLOBAL TEXT MESSAGES 


; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 

; MORE THAN ONE TEST. 

ge= 


NAMES OF DEVICES SUPPORTED 
: DEVTYP <TSVOS> 


L$DVTYP: 
.ASCIZ /TSVOS/ 
-EVEN 


TEST DESCRIPTION 
3 — 
DESCRIPT <#*#** TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR s##> 


L$DESC:: 
my /**e*e TSVOS LOGIC DIAGNOSTIC - REPLACE M7196 IF ERROR #ee0/ 


}BIT TO ASCII CONVERSION FOR TSSR REGISTER 
tSsreit: : .WORD 1$,2$,34,4$,5$.6$, 


7$,8$ 
“WORD 9$,10$,11¢,12$5138,14$,15¢,168 

1$: -ASCIZ ‘SC’ 

$: -ASCIZ ‘BIE’ 

$: -ASCIZ ‘SCE’ 
4s -ASCIZ ‘RMR’ 
S$ -ASCIZ ' ‘ 
6$ -ASCIZ ‘NBA' 
7$ -ASCIZ ‘BIT9' 
8$: -ASCIZ ‘BIT8' 
9$ -ASCIZ ‘SSR' 
10$ -ASCIZ ‘OFL' 
11%: -ASCIZ ‘BITS’ 
12¢ -ASCIZ ‘BIT4' 
13% -ASCIZ ‘BITS’ 
14% -ASCIZ ‘BIT2’ 
15$ -ASCIZ ' , 
16% -ASCIZ ‘BITO’ 

EVEN 


SFHERR: .ASCIZ ER BUS RESET’ 
NXR ; -ASCIZ / NON-EXISTANT DEVICE REGISTER/ 
NXRX : -ASCIZ /#A ADDRE 806/ 


TSSX: -ASCII /#A 1A. TSSR EXP'D: s068A,#068N/ 
-ASCIZ /#A_ TSBA,TSSR REC'D: #068A,806/ 

FUSI: Akt /SNBA/ 

USI: -ASCIZ / UNEXPECTED INTERRUPT/ 

NSI; -ASCIZ / INTERRUPT EXPECTED, NOT RECEIVED/ 


FNOINTR: -ASCII_ /sNsA/ 
NOINTR: .ASCIZ / NO INTERRUPT WAS GENERATED/ 
IFAULT: .ASCIZ / INTERRUPT FAULT/ 


SE@ 0041 


D4 
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GLOBAL TEXT MESSAGES 


1640 004302 045 101 040 INTX: -ASCIZ /#A CPU PC: 068A TSBA: #06/ 

1641 004337 040 040 042 NOINIT: .ASCIZ / “BUS-INIT” DIDN'T INITIALIZE CONTROLLER/ 
1642 004411 040 040 O42 NSINIT: .ASCIZ / “SOFT-INIT” DION’T INITIALIZE THE DPU/ 
1043 004461 Son 040 042 ee -ASCIZ _- “"BUS-RESET” DION'T INITIALIZE THE DPU/ 


SEQ 0042 


004 a sN/ 
1646 004535 045 101 040 EXPGOT: .ASCIZ /#A EXP’'D: s068A, REC'D: #806/ 
1647 004571 045 116 045 EXPGT2: .ASCIZ /sNSA EXP'D: sO068A, SO6SNSA REC'D: #806/ 
1648 004645 045 101 040 DUADI2: .ASCIZ /#A REG(W) WRITTEN ue 068A REG(R) REA, EXP'D: 068A, REC'D: #06/ 
1649 004747 122 101 115 PKTRAM:: ASCIZ ‘RAM Contents Do Not Match Packet Sent’ 
1650 005015 040 040 103 SCME: .ASCIZ 7 CONFIG DOESN'T TATCH MFG. MASTER/ 
1651 005060 127 122 111 WRTMSG: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
1652 005115 124 123 123 WRTERR: .ASCIZ ‘TSSR Incorrect After WRITE Command, More Bits Set Than SSR’ 
1653 005210 124 123 123 RDERR: .ASCIZ ‘TSSR Incorrect After READ Command, More oi te Set Than apy 
1654 005302 106 101 124 SCHERR: .ASCIZ ‘FATAL ERROR IN SUBTEST - CHECK TAPE, CABLES, TRANSPORT e 
1655 005374 105 122 122 RETERR: .ASCIZ ‘ERROR IN SUBTEST - WRITE DATA RETRY FIVE fines F FAILED’ 
1656 005462 045 116 045 NOMEM: .ASCIZ ‘SNA e000 NO NXM ADDRESS--CANNOT TEST NXM TIMEOUT. #eeeesN’ 


1657 005556 045 116 045 M8186: .ASCIZ ‘SNSA seeecesesesesesese 11/23A SYSTEM eeeeeeecesesesesesN’ 
1638 005647 045 116 045 M6189: .ASCIZ ‘SNSA seeeeeesesesesese 11/238 SYSTEM eeeeecesesesesesesN’ 
rere -SBTTL GLOBAL ERROR REPORT SECTION 
1662 a*s 
1663 THE SLBA, ERROR REPORT SECTION CONTAINS THE PRINTB AND PRINTX 
1664 ; CALLS T HAT ARE USED IN MORE THAN ONE 
eeee ; ASCII TEXT STRINGS ARE FOUND IN THE GLOBAL TEXT SECTION. 
666 geo 
1667 005740 BGNMSG NXRERR sNON-EXISTANT DEVICE REGISTER. 
005740 NXRERR: : 
1668 005740 PRINTX #@NXRX,NODEV sNODEV = NEXM ADDRESS. 
005740 013746 003116 MOV NODEV, -( SP) 
005744 012746 004001 MOV @NXRX , - (SP) 
005750 012746 MOV -($P ‘ 
005754 01 MOV 
756 104415 TRAP = C$PNTX 
005760 062706 000006 ADD 96 ,SP 
1669 005764 004737 005772 JSR PC ,EXTEND 3 PRINT EXTENSION IF REQUIRED. 
1670 005770 ENOMSG 
005770 L10002: 
1671 005770 104423 TRAP C$MSG 
F 
1672 ; THIS ROUTINE APPENDS A UNIQUE EXTENSION CIF REQUIRED) 
1073 3s TO ANY OF THE ABOVE ERROR SIGNATURES. 
1675 005772 005727 EXTEND: TST (PC)- 
1676 005774 000000 EXTA: r¢) s O = NO EXTENSION. 
1677 005776 001402 BEQ 1$ 
1678 006000 004777 177770 JSR PC, @EXTA ; APPEND EXTENSION TEXT. 
1679 006004 1$: PRINTX @NULCR 3 PRINT A BLANK LINE 
006004 012746 004532 MOV @NULCR, -C SP) 
006010 012746 000001 MOV #1,-(SP) 
006014 010600 MOV SP ,RO 
006016 104415 TRAP =—s-s C$PNTX 
006020 062706 000004 ADD 64 ,SP 
1680 006024 000207 RTS PC 


E4 
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PRITSSR - PRINT TSSR CONTENTS 


SEQ 0043 


1682 .SBTTL PRITSSR - PRINT TSSR CONTENTS 
iess + 
1686 ROUTINE TO’ DISPLAY THE CONTENTS, AND BIT DEFINITIONS, OF 
1687 ;THE TSSR REGISTER. THIS ROUTINE IS NORMALLY CALLED ONLY 
$608 ;BY A MESSAGE PRINTING ROUTINE 
; 
1690 ; INPUTS: 
1691 3 
1698 ; R1 CONTENTS OF TSSR 
7 
1694 ;SUBORDINATE ROUTINES: 
; 
1696 : CHKAMB CHECK FOR AMBIGUOUS CONTENTS 
; 
1698 3- 
1699 
1700 006026 PRITSSR: 
1701 006026 SAVREG sSAVE GENERAL REGISTERS 
1702 006032 010104 MOV R1,R4 SAVE THE TSSR CONTENT 
1703 006034 PRINTB #TSSRFOR,R4 sPRINT THE CONTENTS OF SissR 
006034 O1 MOV »-( SP) 
006036 012746 006417 MOV @TSSRFOR, -(SP) 
006042 012746 000002 MOV @2,-(SP) 
006046 01 MOV RO 
006050 104414 TRAP CsPNTB 
006052 062706 000006 ADD $6 .SP 
1704 006056 01 MOV R4,RO :GET TSSR BACK FOR CHKAMB 
1705 006060 004737 016104 JSR PC. CHKAMB ;ARE CONTENTS AMBIGUOUS ? 
1706 006064 103410 BCS S$ :BRANCH IF NO 
1707 006066 PRINTX @#AMBTSSR ;SHOW CONTENTS ARE AMBIGUOUS 
006066 012746 006637 MOV @AMBTSSR, -( SP) 
006072 012746 000001 MOV #1, -( 
006076 01 MOV 
006100 104415 TRAP CoPuTX 
006102 706 000004 ADO 
1708 006106 010403 S$: MOV ONTENTS OF TSSR 
1709 006110 042703 001476 BIC ei ibonsearem ;CLEAR ALL MULTIPLE BIT FIELDS 
1710 006114 001434 BEQ NO aits ARE SET 
1711 006116 012702 002634 MOV SenPeFR,R TEMPORARY ASCII BUFFER 
1712 006122 012701 003504 MOV STSSRBit a sASCII EQUIVALENT OF BITS 
1713 006126 005703 10$: TST R3 »REMAINING BITS TO CONVERT 
1714 006130 001413 BEQ 15$ ANCH L 
1715 006132 cLC sCLEAR CARRY F 
1716 006134 00610 ROL R3 SHIFT NEXT BIT TO CARRY 
1717 006136 1 BCC 13% IF BIT 
1718 006140 011100 MOV (Ri), POINTER TO BIT DEFINITION 
1719 006142 112022 11s: MOVB CRO)+,(R2)- {MOVE ASCIZ TO 
1720 006144 001376 BNE i1$ sMOVE BITS 
1721 006146 112762 000054 177777 MOVB 6’, ,-1(R2) sINSERT A COMMA TO TERMINATE 
1722 006154 005721 13%: TST (Ri)- sPOINT TO NEXT DESCRIPTION 
1723 006156 000763 BR 10% iG +e REMAINI BITS 
1724 006160 105042 15$: CLRB _¢R2) THE LINE 
1725 006162 PRINTX #TSSOEF, @TMPBFR OAT Nie BIT DEFINITIONS 
1 012746 002634 MOV @TMPBFR, -(SP) 
006166 012746 006610 MOV OTSSDEF , -( SP) 


F4 
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PRITSSR - PRINT TSSR CONTENTS 


SEQ 0044 


006172 012746 000002 MOV @2.-(SP) 
006176 010600 MOV 
006200 104415 TRAP CHPNTX 
ion 006202 062706 000006 ADD $6,SP 
1727 006206 010403 20: MOV ;GET THE TSSR CONTENTS 
1728 006210 042703 177761 BIC OTC TERCLS.R :CLEAR ALL BUT TERMINATION 
1729 006214 016303 006700 MOV TebcooCRs}. RS :GET THE TERMINATION CODE MEANING 
1730 006220 PRINTX #TCOASC,R ;PRINT THE TERMINATION CODE 
006220 010346 MOV R3 Copy 
006222 012746 006500 MOV sTéOASC.-(SP) 
006226 012746 000002 MOV $2,-(SP) 
006232 010600 MOV 
006234 104415 TRAP CSPNTX 
006236 062706 000006 ADD $6.SP 
1731 006242 010403 MOV R4-R3 ;TSSR CONTENTS AGAIN 
1732 006244 042703 177717 BIC OrCFATERR,R3 ;CLEAR ALL BUT FATAL TERMINATION 
1733 006250 001416 BEQ 254 ;D0N'T PRINT IF ZERO 
1734 006252 006203 ASR R3 
1735 006254 006203 ASR R3 
1736 006256 006203 ASR R3 sALINE TERMINATION CODE FOR INDEX 
1737 006260 016303 007240 MOV TSFCOD(R3),R3  ;GET THE FATAL TERMINATION CODE 
1738 006264 PRINTX #TFCASC,R3 ;PRINT THE FATAL TERMINATION CODE 
006264 010346 MOV R3,-( SP) 
006266 012746 006541 MOV @TFCASC, -(SP) 
006272 012746 000002 MOV 2.-(SP) 
006276 O01 
006300 104415 TRAP C$PNTX 
006302 062706 000006 ADD 06, SP 
739 006306 042704 176377 258: BIC OT CHIADOR ,.R4 ;CLEAR ALL BUT EXTENDED ADDRESS 
1740 006312 001411 BEG 30$ ;00N'T PRINT IF 
174] 006314 PRINTX #TEXASC,R4 ;PRINT THE EXTENDED ADDRESS BITS 
006314 010446 MOV R4,-(SP 
006316 012746 006437 MOV @TEXASC, -( SP) 
906322 012746 000002 MOV @2,-(SP) 
006330 104415 TRAP  C$PNTX 
006332 706 000006 ADD 66.SP 
1742 006336 013703 002200 30$: MOV EPRTSW,.R3 ;PRINT MEAASGE BUFFER ADDRESS 
1743 006342 PRINTX R3 ;PRINT PROPER MESSAGE 
006342 010346 MOV R3,-(SP) 
006344 012746 000001 MOV #1,-(SP) 
006350 010600 RO 
006352 104415 TRAP CsONTX 
006354 062706 000004 ADD 64,SP 
1744 006360 000207 RTS PC ;RETURN TO CALLER 
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PRITSSR - PRINT TSSR CONTENTS 
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116 


-ASCIZ 


‘SNSA eeeeeREPLACE M7196eeee0' 


-ASCIZ ‘sNSA TSSR = #06’ 

-ASCIZ ‘sNSA Extended Address Bits = #06’ 

RSet * SNBA porningtion Cless = sT' 

-ASCI ‘SNSA Fatel Termination Class Code = sT' 
-ASCIZ ‘sNSA TSSR Bits Set: eT’ 

-ASCIZ ‘sSNSA TSSR Contents Are Ambi quous’ 
1$,2%,3%,4%,5%,.6%.7$,8$ 

‘Normal Termination’ 


‘Termination Condition’ 

‘Tape Stetus Alert’ 

‘Function Reject’ 

‘Recoverable Error - Tape Position One Record Down’ 
‘Recoverable Error - Tape Was Not Moved’ 
‘Unrecoverable Error’ 

‘Fetel Controller Error’ 


1$,2$,3%,4$ 

Internal Diagnostic Failure’ 
‘Reserved’ 

‘Bus Interface or Sanity Check Error’ 
‘Reserved’ 


SEQ 0045 
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- PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


003136 


007556 
000003 
000010 
017356 


007520 
000003 


000010 


116 
116 


}THIS ROUTINE PRINTS THE ADDRESS AND CONTENTS OF A 
sTHIS ROUTINE IS NORMALLY ONLY CALLED FROM A PRINT 


10$: 


15$: 


- 


045 PKTFRM: 
04S PKTADD: 


. SBTTL 


-ASCIZ 
-ASCIZ 
-EVEN 


PRIPKT 


SEQ 0046 


- ‘PRINT THE ADDRESS/CONTENTS OF COMMAND PACKET 


COMMAND PACKET. 
ROUTINE . 


NUMBER OF WORDS IN PACKET 
HIGH ORDER COMMAND patsy ADDRESS 


ADDRESS OF 


COMMAND P 


R3 IS IGNORED IF THE KTENABLE FLAG IS CLEAR. 


‘SNSA Packet Word @sD1sA 


SAVE eo REGISTERS 


sSAVE OF WORDS IN PACKET 
sABOVE 28K UNDER TEST? 

sBR IF YES 

sSET HIGH ORDER ADDRESS TO 0 
sCOPY HIGH ORDER ADDRES 

sGET LOWER ADDRESS 

++ BIT 15 INTO C BIT 


sAND INTO HI P 
sPRINT PACKET ADDRESS 


T_HIGH ORDER ADDRESS 
‘BR IF NOT ABOVE 28K. 
;GET LOW ORDER ADDRESS 
SETUP PAR6 MAPPING FOR 18 BIT ADDRESS 
see T RET oy ADDRESS BIAS 


sSAVE WORD 
GET PACKET CONTENTS 
PRINT THE DATA 


sNEXT WORD NUMBER 

sDONE ALL PACKET WORDS? 
sLOOP TILL ALL DONE 
sRETURN 


= #806' 


‘SNSA Packet Address = #01505’ 


14 
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PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


He 

1833 

1834 

1835 

1836 

1837 

1838 

1839 

1840 

1841 

1642 

1643 

1844 

1845 

1 007614 

1847 007614 
007620 010203 

1849 007622 

1850 007632 012700 177400 

1851 007636 040001 

18S2 007640 

1853 007642 040003 
007644 


0246 
007652 012746 007676 
000004 
007666 062706 000012 


1858 007676 045 116 045 


1877 007750 010203 
1878 007752 
1879 007762 


SEQ 0047 
-SBTTL PRIBXOR - PRINT EXPD, RECV AND XOR BYTE 


;PRINT EXPECTED DATA, RECEIVED DATA, AND XOR OF THE DATA BYTE 
:THIS ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


}INPUTS: 
o 
; R1 RECEIVED DATA 
; R2 EXPECTED DATA 
3 
sOUTPUT: 
: RO XOR OF EXPECTED/RECEIVED DATA 
BRIBXOR: : 
SAVREG ‘SAVE THE REGISTERS 
MOV R2.R3 }EXPECTED DATA 
XOR RLS ;FORM THE EXCLUSIVE OR 
MOV @t€<377>,RO BYTE MASK 
BIC RO.R1 SAVE LOW BYTE RECV 
BIC —RO.R2 SAVE LOW BYTE EXD 
BIC VE LOW BYTE XOR 
PAINTS @XORBFOR.R2.R1.84 VPRING The HESOAGE 
MOV R3, -(SP) 
me 
MOV OXORBF OR, -( SP) 
MOV 04, -( 
MOV sp: 
TRAP  - CSPNTB 
ADD 612, SP 
MOV R3,RO ;RO HAS XOR ON RETURN 
RTS PC RETURN TO CALLER 
XORBFOR : ASCIZ ‘sNsA EXPD: SO38A RECV: sO38A XOR: #03’ 


- EVEN 
-SBTTL PRIXOR - PRINT EXPD, RECV AND XOR 
' 


;PRINT rhe ts DATA, RECEIVED DATA, AND XOR OF THE TWO 
epee ROUTINE IS NORMALLY CALLED ONLY FOR PRINT ROUTINES. 


}INPUTS: 
: R1 RECEIVED DATA 
: R2 EXPECTED DATA 
3 
}OUTPUT 
; RO XOR OF EXPECTED/RECEIVED DATA 
bRIXOR: : 
SAVREG ‘SAVE THE REGISTERS 
MOV -R2,R3 ‘EXPECTED DATA 


XOR R1,RS FORM ~ EXCLUSIVE OR 
PRINTB @XORFOR,R2,R1,R3 ;PRINT THE MESSAGE 


J4 
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PRIXOR 


- PRINT 


EXPD, RECV AND XOR 


MACRO VOS.03 Tuesday 28-Apr-87 08:29 Page 40-1 


010014 
000004 
000012 


116 


ae 


RBLOCR SEAS 
eae 


;RO HAS XOR ON RETURN 


sRETURN TO CALLER 
045 XORFOR: iy ‘SNSA EXPD: SO68A RECV: SO68A XOR: #06’ 


SEQ 0048 


KK4 
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PRIEQU 


900 010062 


010066 


010116 


20 010120 
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- PRINT BIT NUMBERS AS ASCII EQUIVALENT 


-SBTTL PRIEQU - PRINT BIT NUMBERS AS ASCII EQUIVALENT 
3° 


;ROUTINE TO CONVERT BIT VALUES TO ASCII AND PRINT THE STRING 
sTHIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


}INPUTS: 

: RO OCTAL VALUE TO CONVERT 

3 R1 TABLE OF POINTERS TO ASCII EQUIVALENT 

3 

se 

PRIEQU: 
SAVREG sSAVE THE REGISTERS 
RTS PC sRETURN TO CALLER 


-SBTTL PRIRAM - PRINT RAM ADDRESS 
| iad 


;PRINT CONTROLLER RAM ADDRESS. 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


PINPUTS : 
; 


; R4 RAM ADDRESS 
3 
PRIRAM: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
PRINTB @RAMFOR,R4 sPRINT RAM ADDRESS IN ERROR 
MOV R4,-(SP) 
AMF OR, -(SP) 
MOV @2.-(SP) 
TRAP CsPNTB 
ADD 06,SP 
RTS PC ;RETURN 


045 RAMFOR: Pome ‘sSNA CONTROLLER RAM ADDRESS = #06’ 


SEQ 0049 


L4 
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PRIADO 
1923 


013702 
013701 
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- PRINT MEMORY ERROR ADDRESS 


002240 
002242 
010232 
000003 


000010 


116 


002240 
002242 


010360 
000002 


045 


-SBTTL PRIADD - PRINT MEMORY ERROR ADDRESS 
3° 


;PRINT MEMORY ADDRESS 
sTHIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


; IMPLICIT INPUTS 


; 
; ERRHI - HIGH ORDER ADDRESS 
: ERRLO - LOW ORDER ADDRESS 
3 
PRIADD: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV ERRHI GET HIGH ADORESSS 
MOV ERRLO.R1 }GET LOW ADDRESS 
MOV R1,R2 ;COPY LOW ADDRESS 
ROL. Ri ‘SHIFT BIT 15 10 C BIT 
RO ;SHIFT INTO HIGH ORDER 
PRINTB @PRIAO,RO.R2  ;PRINT MEMORY ADDRESS IN ERROR 


TRAP  C$PNTB 
RTS PC ; RETURN 
PRIAO: .ASCIZ ‘sINSA MEMORY ERROR ADDRESS = #01805’ 
.SBTTL PRITADD - PRINT MEMORY TEST ADDRESS 
t ad 


iPRINT MEMORY ADDRESS 
THIS ROUTINE IS NORMALLY CALLED ONLY FROM PRINT ROUTINES. 


IMPLICIT INPUTS 


ERRHI - HIGH ORDER ADDRESS 
ERRLO - LOW ORDER ADDRESS 
ARITADD: 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
HIGH ADDRESSS 


ERRLO,R1 sGET LOW ADDRESS 
sCOPY LOW ADDRESS 
sSHIFT BIT 15 TO C BIT 


ar RO ;SHIFT INTO HIGH 
INTB @PRITO,R1 ;PRINT MEMORY ADDRESS LOW IN ERROR 
MOV Ri (SP) 

MOV @PRITO, -( SP) 

MOV @2,-(SP) 

MOV SP; RO 


SEQ 0050 


M4 
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TEST ADDRESS 


96, SP 
@PRITI Re ;PRINT MEMORY ADDRESS HIGH IN ERROR 


;RETURN 


i 
1971 010360 045 PRITO: .ASCIZ ‘sSNA MEMORY TEST ADDRESS LOW = #06' 
1376 010423 04S PRIT1: ay ‘SNA MEMORY TEST ADDRESS HIGH = #06’ 





N4 
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- SPACE RECORDS (FORWARD AND REVERSE) COMMAND 


-SBTTL SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
3° 


; ROUTINE TO ISSUE A SPACE RECORDS 
COMMAND (FORWARD OR REVERSE) 


NUMBER OF RECORDS TO BE SPACED OVER 
BIT1S CONTROLS DIRECTION 
IS FORWARD 


8 VERSE 
FIRST Device UNIBUS ADDRESS 
REQUIRES A WRITE CHARACTERISTICS DONE PREVIOUSLY 


SET - SPACE RECORDS COMMAND OK 
CLR - SPACE RECORDS FAILED 


RO THE CONTENTS OF R4 IS MOVED TO RO 


IMPLICIT OUTPUT: 

TAPE HAS BEEN MOVED 
SIDE EFFECTS: 
; 


1SAVE THE GENERAL REGISTERS 

3SET UP DELAY 

3SET UP COMMAND, SPACE FORWARD 

5 CHECK FOR DIRECTION 
Tp REVERSE INDICATED 
UP NUMBER OF RECORDS TO SPACE 


000764 010660 
140010 010650 
010652 

100000 
010652 
000400 
010650 
000000 
016310 


a yb tniaieitiomell 





BS 
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SPACE - SPACE RECORDS (FORWARD AND REVERSE) COMMAND 
010600 005367 177756 DEC -22(PC) 
010604 001367 BNE -20 
2026 010606 005337 010660 DEC SDELAY : BUMP DELAY COUNTER DOWN 
2027 010612 001356 BNE 15$ IF MORE DELAY 
2028 010614 000411 BR 60$ iBR IF TROUBLE CARRY = CLEAR 
2029 010616 016501 000002 20$: MOV TSSR(RS),R1 sREAD TSSR 
2030 010622 012702 000200 MOV @SSR,R2 ;SET UP EXPECTED 
2031 010626 020201 254: CMP R2,Ri ;AKE THEY OK 
2032 010630 001401 BEQ 40$ :8R, IF EQUAL = OK 
2033 010632 000402 BR 60$ ; TROUBLE EXI1 
2034 010634 000261 40$ SEC sSET CARRY NO TROUBLE 
2035 010636 000401 B 70$ EXIT 
2036 010640 000241 cLC CARRY CLEAR = ERROR 
2037 010642 70$ 
2038 010642 010400 R4,RO :PASS PACKET ADDRESS 
2039 010644 000207 RTS ;RETURN 
2040 3 
2041 PF 
2042 ; 
2043 sPACKET FOR SPACE COMMAND 
2044 3 
2046 010650 =<, ©10>6177770 
2048 3 
2049 ;COMMAND WORD 
2050 010650 000000 80$: . WORD 
2051 ;NUMBER OF RECORDS TO BE SPACED OVER WORD 
2052 010652 000000 90$: . WORD 
2053 010654 000000 WORD 
2054 010656 000000 "WORD 
2055 010660 000000 SDELAY - WORD ;DELAY COUNTER 
S028 “SBTTL WRTCHR - WRITE CHARACTERISTICS COMMAND 


SEQ 0053 
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WRTCHR 
2059 
1 
2063 
2065 
2067 


BEEERSS 


3 


2070 
2071 
72 
2073 
2074 


8 


- WRITE CHARACTERISTICS COMMAND 


001406 
012737 
052763 
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002232 
002226 
000000 


016376 


000002 
000200 
000100 


000100 


;SIDE EFFECTS: 
URTCHR : : 


10$: 


203: 


€ 
¢ 


Ra 
RS 
REQUIRES A 


"RO 
CARRY 


A WRITE CHARACTERISTICS 
OTHER COMMANDS WILL BE ACCEPTED 


eiker b OF PACKET FROM TEST 


iy T DEVICE UNIBUS ADDR 


ESS 


CALL TO SOFINIT BE DONE PREVIOUSLY 


TSSR CONT 


ENTS 
SET - WRITE CHARACTERISTICS COMMAND OK 
CLR - WRITE CHARACTERISTICS FAILED 


IMPLICIT OUTPUT: 


MESSAGE BUFFER AND OTHER ere ALL SET UP 
SOFTWARE SWITCHES SET AS FOLLOWS: 

EXTFEA = EXTENDED FEATURES PRESENT 
BENBSW = BUFFER ENABLE SWITCH ON OR OFF 


BENB 

EXTFEA 

R4, TSDBCRS) 
PC, CHKTSSR 


60$ 
TSSRCRS),R1 
»R2 


R45,R 
axe. EXtF, XST2(R3) 
EXTFEA 
@X2.BUFE,XST2(R3) 
50$ 
BENBSW 
XST2(R3), REV 
#17700, REV 
$1,REV 
55$ 
#1,EXTFEA 
@X2.EXTF ,XST2(R3) 


THE eet REGISTERS 


s SAVE 
CLEAR BUFFER ENABLE S 
sCLEAR EXTENDED FEATURES SW SWITCH 
COMMAND 


SR 
sBR, IF SSR IS SET AND OK 
sBR IF TROUBLE CARRY = CLEAR 
sREAD TSSR 
sSET UP E ED 
sWAS OFF LINE 1 IN TSSR 


;POINT TO MRT CHARA DATA PACKET 
sGET ADDRESS OF MESSAGE BUFFER 
sEXTENDED FEATURES BIT SET? 

sBR IF NO 

sSET EXTENDED FEATURES SW SWITCH 


ore ENABLE pares set 


IF SWITCH NOT SE 
ort SOFTWARE SWITCH FOR ENABLED 


oes ITA 
+ ALWAY EXTENDED FEATURE FOR NEW 


sMICROCODE 
sEXTENDED FEATURE ALWAYS SET IN 
sMICROCODE 


SEQ 0054 
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WRTCHR - WRITE 
2116 011040 


CHARACTERISTICS COMMAND 


000261 SS$: 
000401 
000241 60$: 
016500 000002 70$; 
000207 


SEC 
BR 

CLC 
MOV 
RTS 
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70$ 
TSSRCRS),RO 
PC 


:SET CARRY NO TROUBLE 
;EXIT 

sCARRY CLEAR = ERROR 
sRETURN TSSR CONTENTS 
sRETURN 


SEQ 0055 


ES 
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REWIND - POSITION TAPE (REWIND) COMMAND 


2 

2149 011054 
2150 011054 
2151 011060 
2152 011064 
2153 011070 
2154 011074 
2155 011100 


° 
4 


004 
103417 


000000 
013727 
000000 
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-SBTTL REWIND - POSITION TAPE (REWIND) COMMAND 
| ad 


; 
sTHIS ROUTINE WILL REWIND THE SELECTED TAPE. 
CAUTION: we ROUTINE DOES NOT WAIT FOR BOT 


ARRIVE. ALSO THE CALLER MUST CHECK FOR 
SSR TO SET IN THE TSSR 


CALLING SEQUENCE: 


DO A SOFT INIT 
DO A WRITE CHARACTERISTICS 
JSR PC ,REWIND 


INPUT: 
RS FIRST DEVICE UNIBUS ADDRESS 
OUTPUT 
RO THE CONTENTS OF R4 IS PASSED TO RO 
REWIND: : 
SAVREG :SAVE R1-RS UNTIL NEXT RETURN 
MOV PRWPACK ,R4 ;GET PACKET ADDRESS 
MOV R4, TSDBCRS) :SEND PACKET ADORE Ss TO EXECUTE 
MOV $360. .R3 sENOUGH TIME FOR 2400’ REEL TO REWIND 
10$: JSR PC, WAITF ;WAIT FOR SSR TO SET 
BCS 20% ;LEAVE WHEN SSR IS SET 
DELAY 250. ;WAIT FOR .25 SECONDS 
MOV 6250. ,(PC)- 
.WORD 0 
MOV LSOLY,(PC)- 
.WORD 0 
bEC ~6¢PC) 
BNE 
DEC *39¢PC) 
BNE .-20 
DEC R3 :BUMP COUNTER DOWN 
BNE 10% sKEEP GOING 
CLC ;CLEAR CARRY TO SET ERROR 
205: MOV R4,RO PASS THE PACKET ADDRESS 
RTS PC ;RETURN 
-*™<,°10>€177770 
.WORD 102010 sPOSTION COMMAND (REWIND) 
"WORD 0 ;NOT USED 


SEQ 0056 
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CKRAM 
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- COMPARE RAM TO I/0 PACKET 


012701 
012702 
005003 


- SBTTL 


CKRAM 


- COMPARE RAM TO I/0 PACKET 


; ROUTINE TO READ THE FIRST 8 BYTES FROM RAM 


; 

; 

; 

; SIDE EFFECTS: 
; 

; 

; 

: 


CKRAM: : 
002244 
000201 
016376 
000000 000000 
016376 10$: 
000000 
016376 
000000 

20%: 
000210 

30$: 


000010 002304 50$: 


CARRY 


Y AND COMPARE THIS DATA TO A 
3 
s INPUT: 


COMMAND PACKET. 


ADDRESS OF THE COMMAND PACKET 
FIRST DEVICE UNIBUS ADDRESS 


SET - RAM MATCHES PA 


CKET 
CLR - RAM DOES NOT MATCH PACKET 
sIMPLICIT OUTPUT: 
THE TABLE ay IS FILLED WITH THE 


DATA HELD I 
RAMSIZ IS SET TO 8. FOR PRAMPKT ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


ORAMDATA,R1 
ORMPKTBEG ,R2 


08. ,RAMSIZ 
PC 


sSAVE THE GENERAL REGISTERS 
sADORESS TO SAVE THE RAM DATA 
sBYTE ADDRESS OF FIRST RAM DATA 
CLEAR ERROR FLAG 


sCOMPARE TO EXPECTED 
sBRANCH IF OK 

sSET ERROR FLAG 

SADDRESS OF next - LOCATION 


;REACHED END 
BRANCH TILL ALL READ 

WAS AN ERROR FOUND ? 
;BRANCH IF NOT 
sCLEAR CARRY TO SHOW ERROR 
; AND EXIT 


sSHOW GOOD COMPARE 
sSETUP RAMSIZ FOR PRAMPKT ROUTINE 
sRETURN 


SEQ 0057 
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CKRAM2 


2 
2278 011416 


012701 
012702 
005003 
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- COMPARE RAM TO 1/0 CHARACTERISTICS DATA 


002244 
000167 


016376 
000000 
016376 
000000 
016376 
000000 


000010 
002226 
000012 
000200 


000176 


002304 


002304 


. SBTTL 
¥ 


CKRAM2 


- COMPARE RAM TO I/0 CHARACTERISTICS DATA 


; ROUTINE TO READ THE FIRST 8 OR 49 BYTES FROM RAM 


— AND COMPARE THIS DATA TO A 


PINPUT: 


Fy CARRY 


SIDE EFFECTS: 


*” SAVREG 


10$: JSR 


20$: INC 


CHARACTERISTICS DATA BLOCK. 


S_OF THE CHARACTERISTICS DATA 
ADDRESS 


ADORES 
FIRST DEVICE UNIBUS 


SET - RAM MATCHES PA 


CKET 
CLR - RAM DOES NOT MATCH PACKET 
sIMPLICIT OUTPUT: 


PC SR 
TSBACRS),(R1) 
(R1)+,(R4)- 
20% 


THE TABLE oo han IS FILLED WITH THE 
DATA HELD IN R 
RAMSIZ IS SET 10° 8. OR 10. FOR PRAMPKi ROUTINE 


THE SUBSYSTEM IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL ng 

TO SAVE THE RAM DATA 

sBYTE ADDRESS OF FIRST RAM DATA 
ERROR FLAG 


FLAG 
NEXT RAM LOCATION 
NOT SET 

PE THE E SOFT WARE EXTENDED FEATURES SET 

set RAMSTZ FOR EXTEND FEATURES 

T END OF EXTENDED BUFFER 
BR. IF NOT AT END YET 

BRANCH 


SEQ 00586 


H5 
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2332 011534 
2333 011536 
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CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 


000012 


SEQ 0059 


-SBTTL CKMSG - COMPARE WRITE CHAR. MESSAGE BUFFERS 
+" 


;ROUTINE TO COMPARE A WRITE CHARACTERISTICS EXPD_ AND RECV 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


; 

s INPUT: 

; RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
: Ri RECV MESSAGE BUFFER LOW ORDER ADDRESS 
S OUTPUT R2 EXPD MESSAGE BUFFER ADDRESS 

; : 


; CARRY SET - MESSAGE BUFFERS MATCH 
; CLR -MESSAGE BUFFERS DON’T MATCH 


3 
; EXPMSG BUFFER IS SET TO EXPD DATA 
; RECMSG BUFFER IS SET TO RECV DATA 
; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
. 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV ;SAVE RECV HIGH ADDRESS 
MOV R1,RCVLOAD ;SAVE RECV LOW ADDRESS 
TST KTENABLE sTESTING ABOVE 28K? 
BEQ 10$ :BR IF NO 
JSR PC, SETMAP RETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO.R1 :GET RETURNED ADDRESS BIASED TO PAR6 
10$: CLR R4 ;WORD IN BUFFER 
CLR R3 ;CLEAR SEEN FLAG 
MOV R2, :GET EXPD BUFFER ADDRESS 
15$: MOV (R2),EXPMSG(R4) ;SAVE EXPD F PORT 
MOV (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
CMP (R2)+,(R1)< sEXPD EQUAL 
BEQ 25% ;6R IF 
INC R3 ;SET ERROR SEEN FLAG 
25$: ADO $2,R4 sPOINT TO NEXT WORD ADDRESS 
CMP R4,014 ;DONE FIRST 7 WORDS? 
BLE 15$ BR 
BIT x2 .EXTF .xST2(RS) IS EXTENDED FEATURES SET IN EXPD? 
} 
CMP R4,016 ;DONE EXTENDED FEATURES WORD? 
BLE 153 ;BR IF NO 
50$: TST R3 :ANY ERRORS SEEN? 
BEQ 55$ :BR 
cLC ;SET FAILURE 
BR 60$ 3 
55$: SEC ;SET SUCCESS 
60$: RTS PC ;RETURN 


TSV3 - GLOBAL AREAS 


1 
011670 
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- COMPARE EXPD RECV MESSAGE BUFFERS 


000144 
000144 
011672 
000001 


-SBTTL CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


; ROUTINE TO COMPARE AN EXPECTED AND RECEIVED MESSAGE 
sBUFFER. THE EXPECTED AND RECEIVED BUFFERS ARE STORED FOR 
sERROR PRINT ROUTINES. 


: RO RECV MESSAGE BUFFER HIGH ORDER ADDRESS 
; R1 RECV MESSAGE BUFFER LOW ORDER ADDRESS 
; R2 EXPD MESSAGE BUFFER ADDRESS 
; R3 NUMBER OF BYTES TO COMPARE 
3 
; OUTPUT: 
; CARRY SET - MESSAGE BUFFERS MATCH 
; CLR - MESSAGE BUFFERS DON’T MATCH 
3 
sIMPLICIT OUTPUT: 
; EXPMSG BUFFER IS SET TO EXPD DATA 
; RECMSG BUFFER IS SET TO RECV DATA 
; RCVHIADD SET TO HIGH ORDER ADDRESS OF RECV 
; RCVLOADD SET TO LOW ORDER ADDRESS OF RECV 
iw 
SAVREG SAVE R1-RS UNTIL NEXT RETURN 
CMP R3, ORECMSG-EXPMSG;aa0 IS COUNT ABOVE MAX ALLOWED? 
BLE S$ aad BR IF NO 
MOV @RECMSG-EXPMSG RS; aa0 
PRINTF #@DEBUGMSG 3; @aD 
MOV UGMSG , - (SP) 
MOV @ »-C(SP) 
MOV . 
TRAP C$PNTF 
ADD 64,SP 
S$: MOV RO; RCVHIADD ;SAVE RECV HIGH ADDRESS 
MOV R1.RCVLOAD ;SAVE RECV LOW ADDRESS 
TST KTENABLE sTESTING ABOVE 28K? 
BEQ 10$ :BR IF NO 
JSR PC, SETMAP ;RETURN ADDRESS BIASED TO PAR6 IN RO 
MOV RO.R1 ;GET RETURNED ADDRESS BIASED TO PARG 
10$ CLR R4 ;WORD IN BUFFER 
CLR RS EAR 
15$: MOVB  (R2),EXPMSG(R4) ;SAVE EXPD FOR ERROR REPORT 
MOVB (R1),RECMSG(R4) ;SAVE RECV FOR ERROR REPORT 
CMPB (R2)+,(R1)- ; EQUAL RECV 
BEQ 258 ;6R IF YES 
INC RS ;SET ERROR SEEN FLAG 
25% ADD 01,R4 ;POINT TO NEXT BYTE 
CMP R4,R3 ;DONE ALL BYTES? 
BGE 50$ ;BR IF YES 
BR 15$ 300 NEXT BYTE 
50$: TST R5 ;ANY ERRORS SEEN? 
BEQ 55% ;BR IF NO 
CLC ;SET FAILURE 
BR 60$ 3 
55$: SEC ;SET SUCCESS 
60$: RTS PC ;RETURN 


SEQ 0060 


J5 


2387 011672 
2388 011762 
2389 011773 

90 012026 


BS 


Be Sboaeseagae 


xX 
- oOo 
Ss 
= 
z 


eeeeEET 
WOSwWMPV aul 
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CKMSG2 


004737 
004737 


104423 


004737 
012700 
004737 


104423 
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122 
116 
040 


056 
105 


006026 
017242 


000004 
007372 


117 
045 
124 
056 
123 


- COMPARE EXPD RECV MESSAGE BUFFERS 


SEQ 0061 


DEBUGMSG: .ASCIZ ‘PROGRAM STEREO. ERROR -CKMSG2 MESSAGE BUFFER EXCEEDED-’ ;aaD 
FERCM: -ASCI I /SNSA § ee8/ 

ERCM: ASCIZ / TSSR ERROR CODE REC’D = 

ree EE i a pre DOING SOFT INIT/ 


3° 


: .ASCIZ /TEST 
- EVEN 


{PRINT ROUTINE TO FATAL SOFT INIT ERRORS 


}INPUT : 
; 


R1 CONTENTS OF TSSR AT ERROR 


}SIDE EFFECTS: 


EXECUTES DROP UNIT TO CEASE TESTING 


BGNMSG SFIMSG 


SFIMSG: : 
JSR PC PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
‘SR PC /CKDROP ;DROP UNIT, IF ALLOWED 
ENOMSG 
L10003: 
TRAP —«C$MSG 
}PRINT ROUTINE TO PRINT THE CONTENTS OF 
;TSSR AND A COMMAND PACKET OTHER THAN GET STATUS COMMAND PACKET. 
}INPUTS: 
: Ri TSSR CONTENTS 
: Ra ADDRESS OF COMMAND PACKET 
: 
a 
BGNMSG PKTSSR 
PKTSSR 
PC PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV 04: NO. OF WORDS IN PACKET 
JSR PC PRIPKT ;PRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 
110004: 
TRAP C$MSG 


KS 
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er 


2469 012160 
2470 012164 
012164 
012164 


004737 
012700 
004737 


104423 


004737 


104423 


004737 
010200 
010301 
004737 


104423 
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CKMSG2 - COMPARE EXPD RECV MESSAGE BUFFERS 


007372 


006026 


014302 


SEQ 0062 


;PRINT Soul De TO PRINT THE CONTENTS - 
— AND A GET STATUS COMMAND PACKET 


INPUTS: 
; Ri TSSR_CONTENTS 
; Ra ADDRESS OF COMMAND PACKET 
, BGNMSG PKTGETS 
PKTGETS 
Sgr PC, PRITSSR ;PRINT THE CONTENTS OF TSSR REGISTER 
MOV 02. NO. OF WORDS IN GET STATUS PACKET 
JSR PC PRIPKT SPRINT THE CONTENTS OF COMMAND PACKET 
ENDMSG 
L10005: 
TRAP —sC$MSG 
PRINT TSSR ERRORS FOR INITIALIZATION TESTS 
}INPUTS: 
: Ri TSSR CONTENTS 
; Ra ADDRESS OF COMMAND PACKET 
' BGNMSG SFFMSG 
SFFMSG: : 
JSR «PC, PRITSSR ;PRINT CONTENTS OF TSSR REGISTER 
10006 
— tpap 


C$MSG 
-SBTTL PKTMES - PRINT TSSR AND MESSAGE BUFFER 
;PRINT ROUTINE TO PRINT THE CONTENTS OF TSSR AND MESSAGE 
FOR ERROR REPORTS 


en 
PINPLITS: 
3 
3 1 R1 CONTENTS OF TSSR 
3 i on LOW ORDER MESSAGE BUFFER 
8 ' RS HIGH ORDER MESSAGE BUFFER ADDRESS 
3 NOTE: R3 IS IGNORED IF KTENABLE FLAG IS CLEAR 
BGNMSG PKTMES 
PKTMES:: 
PC ,PRITSSR sPRINT CONTENTS OF TSSR 
MOV ° 3LOW ORDER ADDRESS 
MOV R3,R1 sHIGH ORDER ADDRESS 
JSR PC ,PRMESS sPRINT THE MESSAGE BUFFER 
ENDMSG 
110007 


* TRAP = CSMSG 


L5 


TSV3 - GLOBAL AREAS 


ADDSSR 


2472 
2473 
2474 
2475 
2476 
2477 
2478 


2506 
2507 
2508 


- PRINT TEST ADDRESS AND TSSR 


12216 
012222 
012226 
012226 
012. 


004737 
01650} 
00473 


104423 
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010276 


000007 
002226 


000010 
014612 


-SBTTL ADDSSR - PRINT TEST ADDRESS AND TSSR 


;PRINT ROUTINE TO PRINT THE CONTENTS OF 
sTSSR AND A MEMORY TEST ADDRESS 


3 
3 INPUTS: 
3 
3 RS FIRST DEVICE UNIBUS ADDRESS 
8 ERRHI HIGH SS TEST ADDRESS 
3 ERRLO LOW ORDER Y TEST ADDRESS 
e= 
BGNMSG ADDSSR 
ADDSSR: : 
JSR PC ,PRIT sPRINT MEMORY TEST ADDRESS 
MOV TSSRCRS),R1 ;GET bi 
JSR PC, PRITSSR sPRINT THE CONTENTS OF TSSR REGISTER 
L10010 a 


TRAP C$MSG 


-SBTTL MSGEXP - PRINT WRITE CHAR. EXPD-RECV MESSAGE BUFFERS 
t Td 


;PRINT ROUTINE TO PRINT WRITE CHARACTERISTIC MESSAGE BUFFER 
;IMPLICIT INPUTS: 
EXPECTED MESSAGE BUFFER 


. BUFFER 
RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
OADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


MSGEXP:: 
67,RO sASSUME NO EXT FEATURES 

TST EXTFEA 3EXT FEATURES SET? 

BEQ S$ ;6R IF NO 

MOV 08. RO sEXT FEATURE BUFFER IS 8 WORDS | 
S$: JSR PC , PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS: . 

ENDMSG 
L10011: 

TRAP C$MSG 





SEQ 0063 


M5 
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SEQ 0064 
FIFEXP - PRINT FIFO EXP/RECV DATA 
2510 .SBTTL FIFEXP - PRINT FIFO EXP/RECV DATA 
tid 
2512 ; 
$233 ;PRINT ROUTINE TO PRINT FIFO EXP/RECV DATA 
3 
2515 ; R1 - BYTE COUNT 
2516 3 
2217 ;IMPLICIT INPUTS: 
3 
2519 : EXPMSG - EXPECTED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY 
2320 ; RECMSG - RECEIVED MESSAGE BUFFER (CONTAINS FIFO DATA ONLY) 
252 g° 
2522 012230 BGNMSG FIFEXP 
012230 FIFEXP:: 
2523 012230 PRINTX @FIF1MSG,R1 ;PRINT BYTES TRANSFERRED 
012230 010146 MOV 1,-(SP) 
012232 012746 012302 MOV oF IF MSG, -( SP) ’ 
012236 012746 000002 MOV @2,-(SP) oom 
012242 010600 MOV SP RO on 
012244 104415 TRAP CSPNTX 
012246 062706 000006 ADD $6, SP 
2524 012252 PRINTX #FiF2MSG ;PRINT HEADER MSG 
012252 012746 012351 MOV OF IFOMSG, -( SP) 
012256 012746 000001 MOV #1,-(SP) 
012262 01 
012264 104415 TRAP C$PNTX 
012266 062706 000004 ADD @4,SP 
2525 012272 010100 MOV R1,RO :GET BYTE COUNT 
2526 012274 004737 015162 JSR PC, PRBYTEXP ;PRINT FIFO BYTES IN ERROR 
2527 012300 ENDMSG 
012300 L10012: 
012300 104423 RAP C$MSG 
2528 012302 045 116 045 FIFIMSG: -ASCIZ ‘sSNA NUMBER OF BYTES TRANSFERRED = sD2’ 
2529 012351 045 116 045 FIF2MSG: na “ASCIZ ‘sNSA FIFO DATA BYTES IN ERROR: ' 


TSV3 - GLOBAL AREAS 


3 
2559 012714 
2560 013005 
2561 013047 
2562 
2563 


012701 
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MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 


012452 


.SBTTL MSGSTAT - PRINT STATUS HEADER AND MESSAGE BUFFERS 
3° 


3 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
; 


;AMPLICIT INPUTS: 


: 

5 EXPMSG - EXPECTED MESSAGE BUFFER 

i RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 


BGNMSG MSGSTAT 


MOV @STATCOD,R1 sASCII ADDRESS TABLE 
10%: MOV CR1)+,RO sDONE ALL MSG LINES? 

BEQ 20$ 3;BR IF YES 

PRINTX RO sPRINT STATUS BIT NAMES 

MOV RO, -(SP) 


HOV. © SP'RO 
TRAP CS$PNTX 
94 6 SP 


10$ sD0 ANOTHER MSG LINE 
20%: MOV #10. ,RO sNUMBER_OF WORDS” IN A READ STATUS BUFFER 
JSR PC , PRMSGEXP ;PRINT EXPD/RECV MESSAGE BUFFERS 


ENDOMSG 
L10013: 
TRAP C$MSG « 
STATCOD: . WORD 1$,2¢,3%,4¢,5$,6%,0 
1$:.ASCIZ ‘sSNA Tape Bus Si als in Word 06: 
2$:.ASCIZ ‘sNSA Sanctrers S> IE0T <12> IFMK <9> IRDY<6> IRWD<2>' 
3$:.ASCIZ ‘sSNA TRESVe<ia> IIDENT<11> IHER <8> IONL<S> IFBY<1>' 
4$:.ASCIZ ‘ssNsA Pg ob nag = <10> ISPEED<7> ILDP<4> IFPT<O>’ 
5%:.ASCIZ ‘sNSA Tape als in d 09:' 
:IASCIZ ' ssNsA Bue AIMESe7> TLuces “OUTRDY<S> INRDY<4>" 


SEQ 0065 


B6 
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MSGLOOP 


012701 
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- PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 


013166 


-SBTTL MSGLOOP - PRINT LOOPBACK HEADER AND MESSAGE BUFFERS 
3° 
;PRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
}IMPLICIT INPUTS: 
; EXPMSG - EXPECTED MESSAGE BUFFER 
; RECMSG RECEIVED MESSAGE BUFFER 
; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
; RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
; 


BGNMSG MSGLOOP 


MSGLOOP: : 
MOV @LOOPCOD,.R1 sASCII ADDRESS TABLE 
10$: MOV (R1)+,RO ;DONE ALL MSG LINES? 
BEQ 20$ ;BR IF YES 
PRINTX RO ;PRINT STATUS BIT NAMES 
MOV RO,-(SP) 
MOV 1,-(SP) 
MOV RO 
TRAP C$PNTX 
ADD 04 
BR 103 :00 ANOTHER MSG LINE 
208: MOV #10. ,RO ;NUMBER OF WORDS IN A READ STATUS BUFFER 
JSR PC , PRMSGEXP PRINT EXPD/RECV MESSAGE BUFFERS 
ENOMSG 
L10014 
TRAP C$MSG 
LOOPCOD: -WORD  1$,2$,3%.4$,5$.6$.7$,0 
1$:.ASCIZ ‘'sNSA Tape Bus Loopback ack Signals ls in Word #8: 
2$:.ASCIZ A PARERR<15> IRESV2<14> IRESV1<13>' 


ssNss 
SNSA IHISP=>IEOT<12> IWRT=>IIDENT<11> IREV *=>ICER <10>' 


3$:.ASCIZ ' 

4$:.ASCIZ ‘sNsA IWFM => IFMK<09> IEDIT=>IHER <O8> IFAD #*=>ISPEED<07>' 
5$:.ASCIZ ‘'sNSA ITADO=>IRDY<06> ITAD1=>IONL <O5S> IERASE=>ILDP <04>°* 
6$:.ASCIZ ‘sNsA IREW =>IDBY<03> IRWU =>IRWD <02> IFEN =>IFBY <Ol>’ 
7$%:.ASCIZ ‘s#NSA IGO =>IFPT<00>' 


- EVEN 


SEQ 0066 


TSV3 - GLOBAL AREAS 


MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 


Beene 


Bee 
whe Oo 
4 
; 


RERRRRESE Soe 


2626 
2627 014014 
40 


012700 
004737 


104423 


004737 
013701 
013702 
004737 


104423 
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000012 
014612 


SEQ 0067 
-SBTTL MSGSUB - PRINT WRITE SUBSYSTEM MESSAGE BUFFER 
3° 


; 
sPRINT ROUTINE TO PRINT MESSAGE BUFFER EXPD/RECV 
é 


‘IMPLICIT INPUTS: 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

: RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 
: RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
Hy 


BGNMSG MSGSUB 


MSGSUB: : 
MOV #10. ,RO ;SIZE OF WRITE SUBSYSTEM BUFFER 
JSR PC ,PRMSGEXP sPRINT EXPD/RECV MESSAGE BUFFERS 
L10015 


TRAP C$MSG 


-SBTTL MEMADD - PRINT MEMORY ADDRESS DATA ERROR 
3° 


3 

sPRINT ROUTINE ~9 PRINT MEMORY ADDRESS DATA COMPARE ERROR 
; 

sIMPLICIT INPUTS: 


3 

; ERRHI - MEMORY ERROR HIGH ORDER ADDRESS 

; ERRLO - MEMORY ERROR LOW ORDER ADDRESS 

; EXP - EXPECTED DATA 

; RECV - RECEIVED DATA 

¢= 
BGNMSG MEMADD 

MEMADD: : 
JSR PC, PRIADD ;PRINT MEMORY ADDRESS IN ERROR 
MOV EXPD ,R1 ;GET EXPD DATA 
MOV RECV.R2 ;GET RECEIVED DATA 
JSR PC, PRIXOR ;PRINT EXPD/RECV 
ENDMSG 

L10016: 


TRAP C$MSG 


TSV3 - GLOBAL AREAS 


PRAMPKT 


014214 
014216 


012701 
005002 
122124 
001005 


000436 
116105 
116403 
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- PRINT RAM AND PACKET DATA 


002244 


177777 
177777 


177400 


177777 
177777 


002234 
002236 


014216 
000005 


-SBTTL PRAMPKT - PRINT RAM AND PACKET DATA 


;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
}WHEN THE RAM DATA DOES NOT MATCH. 


: 

; INPUTS: 

g 

POINTER TO COMMAND PACKET 

PIMPLICIT. INPUTS: 

; RAMDAT DATA AS READ FROM THE RAM 

; RAMSIZ. NUMBER OF BYTES IN PACKET 

IF RAMSIZ=0 THEN DEFAULT TO 8. 

IMPLICIT OUTPUTS: 

: RAMSIZ SET TO 0 

BRAMPKT : 

SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
MOV @RAMDATA,R1 ;DATA FROM THE R 
CLR R2 sINIT BYTE MFeER’ 
S$: CMPB (R1)+,(R4)- ;COMPARE EXPECTED, RECEIVED 
BNE 7 ;6R IF NO MATCH 
FORCERROR 7$,NOTSSR 
BR 10$ ;aa0 
7$: MOVB -1(R1),R5 GET RECV RAM DATA 
MOVB -1(R4)-R3 ;GET EXPD PACKET DATA 
XOR R5,R3 ;XOR EXPD/RECV 
BIC #177400,R3 ;LOW BYTE ONLY 
002236 MOVB -2¢R12.RECV ;GET RECEIVED RAM DATA 
002234 vB -1(R4). EXPD ;GET EXPECTED RAM DATA 

PRINTB eaanact. sre. RECV,EXPD,R3 

MOV R3,-CSP 

MOV EXPD oC SP 

MOV RECV. -(SP) 

MOV ee 

MOV @RAMASC, -( SP) 

MOV »-CSP 

MOV RO 

TRAP CSPNTB 

ADO $14,SP 

10$: INC R2 sUPDATE BYTE COUNT 
TST RAMSIZ s DEF AULT TO 8.? 

BEQ 15$ IF YES 
CMP R2,RAMSIZ ;DONE ALL BYTES? 
BLE 5$ ;8R IF NO 
BR 25% 3 

15$: CMP R2,08 ;DONE DEFAULT NUMBER OF BYTES? 

20: BLT 5$ ;BR IF 

25%: CLR RAMSIZ 3SET DEFAULT RAMSIZ 
RTS PC ;RETURN 


045 RAMASC: .ASCIZ 
- EVEN 


‘SNSA BYTE: #D28A RAM: SO38A Packet: SO38A XOR:803' 


SEQ 0068 


E6 
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PRMESS 
2679 


2680 
2681 


2699 
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- PRINT CONTENTS OF MESSAGE BUFFER 


003136 


017356 


116 
116 


045 
045 


SEQ 0069 


-SBTTL PRMESS - PRINT CONTENTS OF MESSAGE BUFFER 


3° 
sTHIS ROUTINE PRINTS THE CONTENTS OF 
sTHE 7 OR 8 WORD MESSAGE BUFFER RETURNED BY THE TSV-O5. 


3 

s INPUT: 

8 RO LOW ORDER ADDRESS OF MESSAGE BUFFER 

' R1 HIGH ORDER .e OF MESSAGE BUFFER 
NOTE: R1 IS IGNORED IF K TENAOLE FLAG IS CLEAR 

: THIS ROUTINE IS NORMALLY CALLED FROM A PRINT ROUTINE 


PRMESS: SAVREG ;SAVE THE REGISTERS 
MOV RO,RS ;SAVE LOW ORDER ADDRESS 
TST KTENABLE sADDRESS ABOVE 28K? 
BNE 10$ ;8R IF YES 
CLR Ri ;SET HIGH ORDER ADDRESS TO 0 
10$: MOV R1,R3 SAVE HIGH ORDER ADDRESS 
ROL RO ;SHIFT BIT15 TO C BIT 


ROL Ri sSHIFT TO HIGH ORDER FOR PRINTOUT 
— eee | Vata ;PRINT MESSAGE BUFFER ADDRESS 


aa = 5 
TRAP C$PNTX 
ADD $10,SP 
PRINTX @PRIASC ;PRINT HEADER FOR CONTENTS 
MOV @PRIASC, -( SP) 
MOV #1,-(SP) 
MOV SP: 
TRAP CsPNTX 
CLR R4 , OF THE NEXT WORD 
MOV RS,R1 ;COPY LOW ORDER ADDRESS 
3,RO ;COPY HIGH ORDER ADORE 
BEQ 20% ;BR IF NOT ABOVE 28K 
JSR PC, SETMAP ;SETUP PAR ADDRESS IN RO 
MOV RO;RS ;GET PAR FORMAT ADDRESS ABOVE 28K 
208: PRINTX @PRASC.R4,(RS)+ ;PRINT THE CONTENTS OF MEMORY BUFFER 
MOV (RS)-,-(SP) 
R4,-(5P) 
MOV @PRASC, -( SP) 
my Base 
TRAP CSPNTX 
ADD #10,SP 
INC 4 ;NUMBER OF THE NEXT 
CMP R4, 07 ;DONE ALL YET 
BGT ‘BRANCH IF ALL DONE 
BLT 20$ PRINT FIRST 7 WORDS 
BIT 9X2. EXTF.XST2(R3);€ DgEXTENDED FEATUTES ON 2 
BNE 208 XTENDED STATUS WORD 


50$: S PC pee RETURN 

PROASC: .ASCIZ ‘sSNSA Message Buffer Address = #01805’ 
PRIASC: .ASCIZ ‘sSNA Message Buffer Contents: ’ 

PRASC: .ASCIZ ‘siNSA WordsD1sA: #0' 


F6 
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PRMESS 


2738 0 
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002310 


014772 
000003 


015075 
000005 


-EVEN 

-SBTTL PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 
;ROUTINE TO PRINT EXPECTED AND RECEIVED MESSAGE BUFFERS 

RO NUMBER OF 


; - WORDS IN BUFFER 

sIMPLICIT INPUTS: 

; EXPMSG - EXPECTED MESSAGE BUFFER 

; RECMSG - RECEIVED MESSAGE BUFFER 

; RCVHIADD- RECEIVED MESSAGE BUFFER HIGH ORDER ADDRESS 


: RCVLOADD- RECEIVED MESSAGE BUFFER LOW ORDER ADDRESS 
4 
PRMSGEXP: : 
SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
MOV 5 ;SAVE NUMBER OF S 
MOV RCVLOADD RO :GET RECV LOW ADDRESS 
MOV 4 ;COPY LOW 
MOV RCVHIADD R12 :GET RECV 
ROL RO ;SHIFT BIT15 TO C BIT 
Ri ;SHIFT TO HIGH ORDER FOR PRINTOUT 
PRINTX SPRESGO SGO,R1.R4 ;PRINT MESSAGE BUFFER ADDRESS 
Ri, -(SP) 
MOV @PRMSGO, -( SP) 
83. agsP) 
TRAP CSPNTX 
ADD #10,SP 
PRINTX @PRMSG1 ;PRINT HEADER FOR CONTENTS 
MOV @PRMSG1, -( SP) 
roy, ase 
TRAP C4PNTX 
$4,SP 
CLR R4 sNUMBER OF THE CURRENT WORD 
MOV #EXPMSG,R1 ;GET EXPD BUFFER ADDRESS 
MOV @RECMSG.R2 :GET RECV BUFFER ADDRESS 
20: MOV (R1),RO :GET EXPD 
KOR RO-RSY COR EXPD/RECV 
; 
PRINTX #@PRMSG2,R4,(R1)+,(R2)+,R3 
MOV R3,-(SP) 
MOV (R2)-,-(SP) 
MOV (R19. e550? 
HOV OPRMSG2, -( SP) 
my aa 
TRAP CsPNTX 
ADD $14,SP 
INC R4 :NUMBER OF THE NEXT 
CMP R4,RS ;DONE ALL YET? 
BGE ; ;8R IF YES 
20$ 300 


RETURN 


50s: RTS PC 
045 PRMSGO: .ASCIZ ‘SNA Message Buffer Address = #01805’ 
045 PRMSG1: .ASCIZ ‘sNSA Mess Buffer Contents: ' 
045 PRHSG2: :ASCIZ 'sNsA @nD2sA EXPD: SOG#A RECV: S068A XOR: 


SEQ 0070 
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PRMSGEXP - PRINT EXPD/RECV MESSAGE BUFFERS 


2755 
2756 


110337 
122122 
0014 
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002322 


002324 
002470 


177400 
015530 


177400 
015532 


002322 
002322 


015532 
015530 


015376 
000005 


000014 


002322 
015463 
000002 


000010 


SE@ 0071 


-EVEN 
-SBTTL PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


tad 


;ROUT INE TO PRINT ERROR BYTES IN MESSAGE BUFFERS 


; ONLY THE FIRST 8 ERRORS 

; 

3 RO 

3 

;IMPLICIT INPUTS: 

3 

; EXPMSG 

: RECMSG 

ead 

PRBYTEXP: : 
SAVREG 
MOV RO,RS 
CLR 
CLR R4 
MOV SEXPMSG,R1 
MOV ORECMSG ,R2 

208: MOVB (R1),RO 
BIC $1C<377>,RO 
MOVB RO, xP 
MOVB (R2),R3 
BIC $1C<377>,R3 
MOVB 3, € 
XOR RO,R3 
CMPB (R1)+,(R2)- 
BEQ 30$ 
INC PRMNO 
CMP PRMNO, #8. 
BHI 30$ 

_ oe set 
MOV PRBREC, -(SP) 
nov R4 tsp) . 
MOV OPRBMSG, -( SP) 
ee 
TRAP C4PNTX 
ADD $14,SP 
FORCEXIT 50$ 
BR 35$ 

30$: 

ae FORCERROR 27$,NOTSSR 
INC “* R4 
CMP R4,RS 
ee 

50$: PRINTX TOT, 
MOV OPRBTOT, -(SP) 
MOV 62,-(SP) 
MOV SP, 


ENCOUNTERED ARE PRINTED DUE TO SCREEN SPACE 


- NUMBER OF BYTES IN BUFFER 


- EXPECTED MESSAGE BUFFER 
- RECEIVED MESSAGE BUFFER 


sSAVE R1-RS UNTIL NEXT RETURN 
sSAVE NUMBER OF BYT 
sINIT ERROR 


BR IF YES 
OPREMSG ,R4, PRBEXP . PRBREC.R3 


mL ver? 
OR TP YES 


:00 ANOTHER 
sPRINT TOTAL ERROR COUNT 


H6 


TSV3 - GLOBAL AREAS 
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SEQ 0072 


PRBYTEXP - PRINT ERROR BYTES IN EXP/REC MESSAGE BUFFER 


015366 

015370 062706 000006 
015374 000207 

015376 045 116 
015463 


015530 000000 
015532 000000 


015534 
015534 004737 007744 
540 


540 
015540 104423 


2 
015542 004737 007614 


015 
015546 104423 


045 
045 


TRAP C$PNTX 


ADD 
RTS PC ;RETURN 


PRBMSG: .ASCIZ ‘SNSA BYTE @8D28A EXPD: #O038A RECV: #038A XOR: #03’ 
PRBTOT: ie ‘SNA NUMBER OF BYTES IN ERROR = #D2’ 


PRBEXP: .WORD 0 sEXPD 
PRBREC: [WORD 0 ;RECV 

[SBTTL EXPREC - PRINT EXPD/RECV WORD DATA 
3° 


;PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 


3 

s INPUTS: 

; Ri RECEIVED DATA 
; R2 EXPECTED DATA 


BGNMSG EXPREC 
JSR PC ,PRIXOR ;PRINT THE DATA 
ENDMSG 


TRAP C$MSG 
-SBTTL EXPBREC - PRINT EXPD/RECV BYTE DATA 


; 
sPRINT ROUTINE TO DISPLAY BYTE EXPD/RECV DATA 
2 


}INPUTS: 

: R1 RECEIVED DATA BYTE 

3 R2 EXPECTED DATA BYTE 

3 

s- , 
EXPBREC 

EXPBREC: : 
PC ,PRIBXOR ;PRINT THE DATA 

L10020: 


TRAP C$MSG 


-SBTTL RAMERR - PRINT RAM AND PACKET DATA 
| id 
;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA 
; 
s INPUTS: 
° 


H R4 POINTER TO COMMAND PACKET 
3 
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SEQ 0073 
RAMERR - PRINT RAM AND PACKET DATA : 
26a8 ;IMPLICIT INPUTS: 
2850 ; RAMDATA DATA AS READ FROM THE RAM 
3851 ; RAMSIZ NUMBER OF BYTE. IN PACKET 
seg ; IF RAMSIZ=0 THttm DEFAULT TO 8. 
2834 IMPLICIT OUTPUTS: 
5856 : RAMSIZ SET TO 0 
5857 a 
5858 
2859 015550 BGNMSG RAMERR 
015550 RAMEARR: : 
2860 015550 004737 014036 JSR PC, PRAMPKT ;PRINT RAM/PACKET DATA 
2861 015554 ENDMSG 
015554 110021: 
nego O122>4 108823 TRAP —«- C4MSG 
2863 _SBTTL RAMTADD - PRINT TEST ADDRESS, RAM AND PACKET DATA 
2865 : i 
2666 ;PRINT ROUTINE TO DISPLAY RAM/PACKET DATA A 
5868 } INPUTS: : 
2869 3 
2870 ; Ra POINTER TO COMMAND PACKET 
$578 ; IMPLICIT INPUTS: 
5874 ; RAMDATA DATA AS READ FROM THE RAM 
3875 ; RAMSIZ NUMBER OF BYTES IN PACKET 
2876 ; Ir RAMSIZ=0 THEN DEFAULT TO 8. 
5877 ; ERRHI HIGH ORDER TEST ADDRESS 
3675 ; ERRLO LOW ORDER TEST ADORESS 
2880 }IMPLICIT OUTPUTS: 
2881 Fy 
Sae2 ; RAMSIZ SET TO 0 
2883 s- 
5884 
5885 015556 BGNMSG RAMTADD 
015556 RAMTADD: : 
2886 015556 004737 010276 JSR PC ,PRITADD ;PRINT TEST ADDRESS 
5887 015562 004737 014036 JSR PC: PRAMPKT ;PRINT RAM/PACKET DATA 
5888 015566 
015566 110022: 
015566 104423 TRAP  —- C$MSG 
3 890 ; .SBTTL RAMEXP - PRINT RAM EXPD/RECV DATA 
5892 
++} }PRINT ROUTINE TO DISPLAY EXPD/RECV DATA 
5895 } INPUTS: 
2896 3 
2897 ; R1 RECEIVED DATA 
5898 : R2 EXPECTED DATA 


TSV3 - GLOBAL AREAS 


RAMEXP 
2699 
2901 


33 


2903 


2907 


38 
2939 
2940 
2941 


2942 
2943 


015570 


015740 
015740 
015740 
015742 


012746 015640 
012746 000001 
0600 


062706 000004 
004737 007744 
104423 

045 116 


010246 
042702 177400 


045 


; R4 


L10023: 
TRAP 


.SBTTL 
ad 


;PRINT ROUTINE 
AND TIMER A,B 


8 
: INPUTS: 
3 
3 R1 
: R2 
a0 
BGNMSG 
TIMEXP: : 
PRINTX 
MOV 
MOV 
MOV 
TRAP 
ADD 
JSR 
L10024: 
TRAP 
TIMSGO: .ASCIZ 
.EVEN 
. SBTTL 
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- PRINT RAM EXPD/RECV DATA 
CONTROLLER RAM ADDRESS 


RAMEXP 
@t0<377>,R1 
@tC<377>,R2 
PC, PRIRAM 
PC ,PRIXOR 


C$MSG 


sSAVE EXPD RAM DATA BYTE 


HE 
;PRINT THE DATA 


TIMEXP - PRINT TIMER A,B AND EXP/REC 


TO DISPLAY EXPD/RECV DATA 


HEADER MESSAGE 


RECEIVED DATA 
EXPECTED DATA 
TIMEXP 
@TIMSGO 
@TIMSGO, -( SP) 
#1,-(SP) 

SP ,RO 

CSPNTX 

64,SP 

PC ,PRIXOR 


C$MSG 


*sNSA TIMER A STATUS IS IN BIT 3sNSA TIMER B STATUS IS IN BIT 2° 
BADSSR - PRINT TSSR ERRORS ON DATA TRANSFERS 


s;PRINT HEADER 


sPRINT THE DATA 


}PRINT ROUTINE FOR TSSR ERRORS ON DATA TRANSFERS 


}INPUTS: 
: R1 
3 Ro 


CONTENTS OF 


TSSR 
DATA WRITTEN (6 BITS) 


BADSSR 


R2,-(SP) 
$177400,R2 


;SAVE DATA TRANSFERRED 
sGET JUST ONE BYTE 


SEQ 0074 


K6 


TSV3 - GLOBAL AREAS 


BADSSR - PRINT 


2944 015746 
tp des 


N 
°o 
4 
uv 
~ 
~ 
o 
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TSSR ERRORS ON DATA TRANSFERS 


016000 
000002 


116 


L10025: 


R 
045 XFERASC: 


PRINTB 
Vv 


@XFERASC ,R2 
R2,-(SP 
OXFERASC, -(SP) 


sRESTORE 
sDECODE T 


R2 
SSR CONTENTS 


C$MSG 
-ASCIZ ‘sSNA Date Transferred = #03' 


SEQ 0075 


2950 
2951 


Jasssaaesee epasaea eau uvayaR 


2979 


2996 016 
2997 016102 


TSV3 - GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


012765 
004 
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176277 
002200 


.SBTTL GLOBAL SUBROUTINES SECTION 

; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST 

. .SBTTL SOFINIT - SOFT INITIALIZE OF CONTROLLER 

| id 

}ROUTINE TO DO A SOFT INITIALIZE OF THE CONTROLLER 
BY WRITING : 


INT 
sTHE TSSR REGISTER IS TESTED FOR ERRORS. ANY ERRORS 
inet SHOULD BE TREATED AS DEVICE FATAL ERRORS. 


PINPUTS: 
RS 


OUTPUTS: 


ADDRESS OF FIRST REGISTER 


RO CONTENTS OF TSSR, IF ERROR 
CARRY SET IF INIT WAS OKAY 
CLEAR IF FATAL ERROR 


CALLING SEQUENCE: 


MOV @ADDRESS ,RS 
JSR , SOF INIT 
BCS CONT INUE 
E ;REPORT FATAL ERROR 
SOF INIT: : 
SAVREG ; SAVE THE REGISTERS 
MOV #0, TSSRCRS) ; DO THE INIT. 
JSR PC. WAITF ; WAIT FOR SSR 
MOV TSSRCRS).RO :GET THE TSSR REGISTER 


MOV RO,R TSSR CONTENTS 
BIC oC <HIADOR?OFL>, ha 
BIS OSSR!NBA,R4 :R4 HAS EXPECTED CONTENTS 


CMP R4,RO sONLY EXPECTED ports SET ? 
BEQ S$ sBRANCH IF OKAY 
CLC ;CLEAR THE CARRY FOR ERROR 
BR 10% sGO_ TO EXIT 

S$: SEC sSET THE CARRY BIT 


108: RTS PC sRETURN TO CALLER 


SEQ 0076 


M6 
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CHKAMB - CHECK TSSR FOR AMBIGUITY 


MACRO VOS.03 Tuesday 28-Apr-87 08:29 Page 62 


177761 
000016 


000040 
000006 


. SBTTL 


CHK AMB 


- CHECK TSSR FOR 


AMBIGUITY 


THIS oh TESTS THE CONTENTS OF THE TSSR REGISTER 


FOR AMBIGU 

}INPUT : 

: 

F RO 

; 

sOUTPUT: 

; 

8 RO 

; 

F CARRY 

3 

Z 

$ — 

CHIKAMB : 
SAVREG 
MOV 
BIT 
BNE 
BIT 
BNE 
BR 

S$: BIT 
BNE 
BIT 
BEQ 
BIC 
CMP 
BNE 
BR 

10$: BIT 
BEQ 
BIT 
BNE 

403: CLC 
BR 

45%: SEC 

50$: RTS 


CONTENTS OF TSSR 


CONTENTS OF TSSR 


SET - NO AMBIGUITY 
CLR - AMBIGUOUS CONTENTS 


sSAVE THE pie] REGISTERS 


sCONTENTS OF T 

pty RO :1S BIT 15 SET ? 
atc NBA!OFL !SSR: MEADOR RO we ANY OTHER BITS SET ? 

< 

T BE AN ERROR 

ass RCT URN TH UCCESS 
@SSR,RO Pe READY BIT SET ? 
10$ ANCH IF EAST BIT IS SET. 
#81TS,RO IS FATAL ERROR BIT SET ? 
40$ ;ERROR IF NOT 
erCTERCLS, R4 CLEAR ALL BUT TERMINATION CODE 

016 ;ALL THREE BITS MUST BE SET 
408 ;ERROR IF NOT SET 
45$ 30K IF ALL 
#B1TS,RO :1S FATAL ERROR T? 
4 ;ERROR IF BIT Is SET WITH SSR 
#B1T2!B1T1,RO ids THIS A FUNCTI JECT 
45$ TSSR IS OK 
a ArBIGUOUS CONTENTS 

sSHOW SUCCESS - No AMBIGUITY 

PC }RETURN TO CALLER 


SEQ 0077 


N6 
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ENAINT,DOSBINT - ENABLE/DISABLE INTERRUPTS 


SEQ 0078 


3044 -SBTTL ENAINT,DSBINT - ENABLE/DISABLE INTERRUPTS 
3046 } DEFAULT DISPLAY INTERRUPT HANDLERS. 
3047 : IF DISPLAY TIME-OUT, REPORT DEV FATAL, AND ABORT PASS. 
3048 | OTHERWISE, SAVE DPU'REGISTERS AND DISMISS. 
i 
50 
3031 . ; BIT DEFINITIONS FOR “INTMASK" AND “INTFLAG” BYTES: 
3053 000200 / TOKCKIN=B177 5 DON'1_ CHECK FOR BAD INTERRUPTS -- TEST WILL. 
3054 000001 IOKSTP=BITO ; EXPECT "STOP" INTERRUPT 
3056 INTERRUPT MASK -- SAYS EXPECTING INTERRUPTS 
3057 016204 000 INTMASK : 
INTERRUPT FLAG 2° SAYS WE GOT ONE CIF POSITIVE) 
3059 016205 000 NTF “BYTE 0 
3061 SAVED. INTERRUPT VECTOR: 
3062 016206 000000 INTVEC: .WORD 0 
3063 SAVE CPU PC 
3064 016210 000000 NTCPC:; .WORD 0 
3066 SUBROUTINE TO ENABLE INTERRUPTS: 
3067 016212 010046 ENAINT SAVE RO 
3068 016214 013700 002210 fov sve co GET POINTER TO VECTORS 
9 016220 012720 016256 MOV _—sSINTR.,(RO)- SET UP INTERRUPT VECTOR 
3070 016224 012720 000340 MOV —« @PRIO?. (RO)+ 
3071 016230 012600 MOV (SP)+,RO ;RESTORE RO 
3072 016232 011646 MOV (SP), (SP) 
3078 016234 012766 000000 000002 MOV 60, 2¢SP) SET CPU TO LEVEL 0 
3074 016242 000002 RTI 
3076 SUBROUTINE TO DISABLE INTERRUPTS (RAISE PRIORITY TO LEVEL 7) 
3077 016244 011646 OSBINT: MOV ee 
3078 016246 012766 000340 000002 MOV @PRIO7,2(5P) 
3079 016254 000002 RTI 
te “SBTTL NTR  - INTERRUPT HANDLERS 
3282 016256 iutr,, PONSA INTR }DEFINE INTERRUPT ENTRY 
3083 016256 012737 000001 002224 ** Mov 01, INTRECV SET FLAG TO SHOW INTERRUPT RECEIVED 
3084 016264 105037 016205 CLRB  —sINTFLAG CLEAR FLAG TO SAY WE GOT INTERRUPT 
3085 016270 132737 000001 016204 BITB  @TOKSTP,INTMASK EXPECTING STOP INTERRUPT? 
3086 016276 001003 BNE 1 i0R IF YES 
3087 016300 152737 000001 016205 BISB  SI0KSTP,INTFLAG ;NO. SET THE ERROR FLAG. 
3089 SAVE REGISTERS, MSG BUFFER, ETC. 
016306 is: 
3091 016306 ENDSRV 
016306 10026: 
016306 000002 RTI 


B7 
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WAITF 
3093 


- WAIT FOR SUBSYSTEM READY 


016310 000401 


te) 1 2 
016314 012746 011000 
000002 


016330 012727 000001 
000000 

016336 013727 002116 
000000 

016344 005367 177772 

giSeae 005367 177756 


016374 000207 


}INPUTS: 


BW 


ww 
oe ee 
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-SBTTL WAITF - WAIT FOR SUBSYSTEM READY 
; 
; SUBROUTINE TO WAIT FOR THE SUBSYSTEM READY FLAG 


ADDRESS OF FIRST DEVICE REGISTER 


CONTENTS OF LAST TSSR READ 
SET - READY BIT SET 
CLR - TIMEOUT WAITING FOR READY 


1$ sNOP WHEN SUPER FIXED 
; DO A SUPVSR BREAK FIRST. 


C$BRK 
#11000, -( SP) s25-APRIL-83 REV B_ - 1100 MSEC TIMER 


TSSR(RS),RO ;READ THE TSSR REGISTER 
RO :TEST FOR READY BIT SET 
3$ ; EXIT ON STOP FLAG. 
1 ; WAIT 100 USEC 
#1,(PC)+ 
L#DLY,(PC)- 
-6(PC) 
.-4 
22¢PC) 
(sP) ;REDUCE DELAY COUNT 
23 ;RETRY UNTIL TIMER EXPIRES 

; C = 0, CONTROLLER STILL RUNNING. 
4$ #+4-0R HUNG-UP AFTER 300 MSEC. 

C= 1, CONTROLLER IS STOPPED. 

(SP). }RESTORE STACK WITHOUT CHANGING CARRY BIT 


SEQ 0079 
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CHKTSSR - CHECK TSSR FOR READY 


3136 016376 
3137 016376 004737 016310 
1640, 


$123 016404 004737 016104 


3141 016412 032700 100000. 
3143 016420 032700 074000 


3159 016436 012737 016470 
3160 016444 012737 000200 
005003 


68 
3169 016472 012716 016500 
000002 


00026 
3175 016514 000207 


-SBTTL CHKTSSR - CHECK TSSR FOR READY 


;THIS ROUTINE WAITS FOR READY IN THE TSSR 
sAND TESTS FOR AMBIGUOUS BIT SETTINGS IN TSSR. 


: 
; INPUT: 
; RS ADDRESS OF CSR REGISTERS 
. 
; OUTPUT: 
: RO CONTENTS OF TSSR 
; CARRY SET - OKAY 
: CLR - NOT READY AMBIGUOUS, OR SC SET 
drKTSsR: 
JSR PC ,WAITF ;WAIT FOR READY 
BCC 20 ;BRANCH IF TIME OUT 
PC, CHKAMB ;TSSR AMBIGOUS? 
BCC 103 ;BR IF YES 
BIT #SC,RO ;SPECIAL CONDITION SET? 
BEQ 5$ :BR IF NO 
BIT @<SCE!BIE!RMR!NXM>,RO ANY ERROR BITS SET? 
BEQ 15$ 3B 
10%: CLC SET FAILURE 
BR 20$ ; 
15$: SEC ;SET SUCCESS 
208: RTS PC ;RETURN TO CALLER 
"SBTTL XNXM = -_ CHECK FOR NONEXISTENT MEMORY 
} ROUTINE TO TEST FOR A NEXM IN THE RANGE (R1) THRU (R2). 
; ON RETURN, IF "C” = 1, (R1) = NEXM ADDRESS. 
; "C" = 0; ALL ADDRESSES OK 
D 
;CALL: MOV ADR1,R1 
; MOV ADR2.R2 
3 JSR . 
; RET ; TEST "c" AND PROCEED 
XNXM: MOV $2$,a04 SET BUSERR VECTOR. 
MOV OPRI04, 206 
CLR R3 FLAG. 
1s TST (R1) TEST 7 THE @ADORESSCES). 
;IF ANY CONTINUE AT 2$. 
CMP R1,R2 30 HERWISE Month 
BEQ 33 ;BR IF TSE EON (NO NEXM'S). 
ADD $2,R1 ;SET NEXT ADDRESS... 
BR 1$ ;...AND CONTINUE. 
24: COM R3 ;GOT ONE, SET FLAG... 
MOV $3%,(SP) 
RTI ;...AND DISMISS INTERRUPT... 
3$: CLRVEC 94 +... AND GIVE BACK THE VECTOR. 
MOV $4,RO 
TRAP Cstvec 
TST R3 ;DID WE CATCH ONE 2? 
BEQ 4 3NO, "C" = O, SKIP NEXT. 
SEC ;YeS, "C" = i, (R1) = NEXM ADDR. 
RTS PC 


SEQ 0080 


D7 
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TSTLOOP - CHECK ITERATION COUNT 


016516 


005737 
00 
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002170 
002204 
002216 


SEQ 0081 


-SBTTL TSTLOOP - CHECK ITERATION COUNT 


iad 
; SUBROUTINE TO EXECUTE TEST ITERATIONS. 
; EXIT WITH “C" SET IF LOOPS ALLOWED AND LOOP COUNT NON-ZERO. 
; LOOP COUNTER IS SET BY “BEGIN. TEST” MACRO. 
} CALL: LOOPTO ARG 
TSTLOOP: ; 
ist NOITS ; ITERATIONS INHIBITED? 
BNE 1$ ; YES. 
TST ave ; NO. 
BMI 13 }LOOPS DISALLOWED IN QUICK PASS. 
DEC LOOPCNT ; BUMP LOOP COUNTER. 
18 coc a ;LOOP DISALLOWED, OR DONE. 
24: SEC ;LOOP ENABLED. 
3$: RTS PC 


-SBTTL TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 
; PRINT THE NUMBER R AND NAME OF EACH TEST AS WE GO AL 
INCREMENT “TESTK” TO INDICATE THE NUMBER OF tests 
IN THE CURRENT RUN SEQUENCE. 
CLEAR THE ERROR COUNTER AND SIGNATURE EXTENSION FLAGS. 
INPUT: 
RO POINTER TO TEST ID ASCIZ STRING 
OUTPUT: 
RS ADDRESS OF FIRST DEVICE REGISTER 
IMPLICIT OUTPUTS: 
TSTCNT UPDATED TO COUNT TESTS PERFORMED SINCE START OR RESTART 


sSIDE EFFECTS: 
3 


; INTERRUPT LEVEL IS RASIED TO LEVEL OF 

; THE DEVICE UNDER TEST 

. 

_ 

TSTSETUP:: 
MOV RO, -(SP) ;SAVE THE TEST ID MESSAGE 
CLR SIFLAG ; CLEAR “SOFT INIT” FLAG 
CLR E ; CLEAR LOCAL ERROR C 
CLR EXTA ; CLEAR ERROR EXTENSION FLAG. 
CLRB  INTMASK ; CLEAR INTERRUPT MASK (CHECK ERROR) 
MOV UNITN, RO ; GET THE UNIT NUMBER 
ASL RO ; AND MAKE IT A WORD OFFSET. 
TST NODEV ; 010 STARTUP Fino” THE DEVICE? 
BEQ 4$ ; BR IF YES 
BPL 3$ ; BR IF NOT IDLE 


Ay 
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3234 
3235 


: 


016610 
016616 
016616 


052760 
104455 
000001 
003742 
005740 
000407 
052760 
104455 
000002 
004337 
000000 
012737 


013700 
104451 
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TSTSETUP - PRINT TEST NAME AND INIT ERROR COUNTS 


160000 003200 BIS 


160001 003200 3%: 


177777 003114 2$: MOV 
002202 MOV 


4$: RFLAGS 
001000 BIT 


016744 MOV 
000002 MOV 


000006 
002214 1$: 
002212 


5$: TST 
002206 


123 045 NAM: -ASCIZ 
-EVEN 
- SBTTL 


, IF 
TSTEND: RFLAGS 
TRAP 
020000 BIT 
BE 


017016 
017020 MOV 
000002 


#160000 ,ERTABL(RO) ; FLAG ERROR IN ys Bo TABLE 


1,NXR,NXRERR ; NO DEVICE HERE -- 
CSERDF 
NXR 
NXRERR 
160001 , ERTABL(RO) FLAG ERROR IN THE ERROR TABLE 
2,NOINIT ; DEVICE ‘OT IOLE 
NOINIT 
@-1,DUFLG ; DROP THE UNIT 
UNITN 
UNITN,RO 
C$DODU 
; ABORT THE PASS 
C$DCLN 
S$ 
RO ; GET THE OPERATOR FLAGS. 
C$RFLA 
OPNT RO ; PRINT THE TEST NUMBERS? 
1$ ; BR IF NO 
(SP),RO ;GET THE ID MESSAGE 
#TNAM, RO ;DISPLAY THE TEST ID 
RO, -( SP) 
@TNAM, -( SP) 
@2,-CSP) 
SP. RO 
CSPNTF 
$6, SP 
TSTCNT ; BUMP TEST COUNTER 
IPRI ;PRIORITY THAT OF DEVICE 
TPRI,RO 
C$SPRI 
(SP )- ;FIX UP THE STACK 
CSRADDR RS ; ADDRESS OF TSV REGISTERS ON UNIBUS 
‘SSSTSA Test’ 


TSTEND - PRINT ERRORS RECEIVED 


: AT END OF EACH TEST, PRINT THE NUMBER OF ERRORS RECEIVED 
NORMAL ERROR REPOR 


TING IS DISABLED (FLA:IER). 


BR IF “IER” NOT SET. 
PR ERROR COUNT. 


i 
GE SUM, ERRK 3 PRINT 


SEQ 0062 


F7 
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TSTEND - PRINT ERRORS RECEIVED 


017010 062706 
3265 017014 000207 
3266 
3267 017016 
3268 017020 045 
3269 017037 105 
3270 
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000006 


101 
122 


040 
122 


ADD 
1$: RTS 


CcIZ 


ESUM: .AS 
EMAXDU: .ASCI 
.EVEN 


Zz 


6 ,SP 
PC 


+ LOCAL ERROR COUNT. 
/#A_ 808A ERRORS/ 
ZERROR LIMIT REACHED -- DROPPING UNIT/ 


SEQ 0083 


G7 
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INCERK 
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- INCREMENT LOCAL ERROR COUNT 


001013 
012737 


104455 
000004 
017037 
000000 


017016 


002202 
003200 
170000 
002174 
017016 


000040 
177777 


002202 


002172 


003114 


- SBTTL 


INCERK 


SEQ 0084 


- INCREMENT LOCAL ERROR COUNT 


; ROUTINES TO INCREMENT LOCAL ERROR COUNT AND CHECK FOR LIMIT: 


INCERK: INC 


1$: MOV 


CKEMAX: MOV 


1$: RFLAGS 
AP 


2s: 


RO (SP) 
AETN, RO 


SERTABL, RO 
CRO) 
$7777,CRO) 
1$ 

CRO) 
CSP)+,RO 
PC 

RO, -(SP) 
UNITN,RO 


RO 
relay of RO 
#170000 ,R 


1$ 

ERRK , LERRMAX 
2¢ 

RO 

C$RFLA 
_ 


#-1,DUFLG 
XDU 


INCREMENT LOCAL ERROR COUNT 
SAVE RO 
GET UNIT NUMBER, 

MAKE IT A WORD OFFSET. 


AND 
RO GETS ADORESS OF ERROR TABLE ENTRY. 
INCREMENT THE DEVICE ERROR COUNT 
DID _ WE OVERFLOW THE FIELD? 

BR IF NO. 

YES -- BACK IT UP TO 7777. 


RESTORE 
RETURN TO CALLER. 


SAVE RO 
GET UNIT 

AND MAKE IT A a OFFSET 
GET ERROR TABLE ENTRY 


EXTRACT ERROR COUNT FIELD 
3 4 LIMIT EXCEEDED FOR THIS UNIT? 
IS Loce. LIMIT EXCEEDED FOR THIS TEST? 


I 
GET OPERATOR FLAGS 
IS DROPPING INHIBITED? 
BR IF YES. 
NO -- DROP THE UNIT 


RESTORE RO 
RETURN TO CALLER 


H7 
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CKDROP - CHECK IF UNIT 


3328 017310 
3329 017310 004737 
3330 017314 000207 


S330 017316 005737 
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SHOULD BE DROPPED 


SEQ 0085 


-SBTTL CKDROP - CHECK IF UNIT SHOULD BE DROPPED 


ExDROP: MOV 0,-CSP) 
FORCERROR 1$,NOTSSR 
RFLAGS RO 
AP CS$RFLA 
000040 BIT 6IDU, RO 
BNE 18 
MOV (SP),RO 
177777 003114 MOV 6-1, 0UFLG 
DODU —sUNTN 
002202 MOV UNITN, RO 
TRAP —_ C$D0DU 
ABORT THE PASS 
TRAP C$DCLN 
1s: MOV (SP)-,RO 
RTS BC 


-SBTTL CONFIG - DETERMINE CONFIGURATION OF SYSTEM 
: SUBROUTINE - DETERMINE CONFIGURATION OF TSVOS SYSTEM. 


tonFIG: 
016034 se PC, SOFINIT 
"SBTTL KTON,KTOFF - ENABLE/DISABLE MEMORY MANAGEMENT 
; SUBROUTINE - ENABLE MEM MGT. 
003134 KTON: TST KTFLG ; GOT KT? 
BEQ 1$ ; NO. 
000001 177572 MOV $1,SRO ; YES. ENABLE KT11. 
1s: RTS PC 
; SUBROUTINE - DISABLE MEM MGT. 
003134 KTOFF: TST KTFLG ; GOT KT11? 
: BEQ 1$ ; NO. 
NOP 
NOP 
000000 177572 MOV #0, SRO ; DISABLE KT. 
1s: RTS PC 


17 
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SETMAP 


017370 


017422 
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- SETUP PAR6 MAPPING 


003134 


-SBTTL SETMAP - SETUP PAR6 MAPPING 
. 
; THIS Rovt INE SETS UP KERNEL PAR6 TP_HANDLE 


sAN 18 BIT ADDRESS. THE at INTO THE PAGE 
sIS RETURNED BIASED TO PAR 


H 

; INPUTS: 

: RO HIGH ORDER ADDRESS BITS 

; Ri LOW ORDER ADDRESS BITS 

; OUTPUTS: 

: RO OFFSET INTO BLOCK WITH PAR6 BIAS (I.E. THE ADDRESS) 

} CARRY SET IF SUCCESS 

; CLR IF ERROR 

ge TMaP: 
SAVREG ;SAVE R1-R4 UNTIL NEXT RETURN 
TST KTFLG ;SYSTEM HAVE ABOVE 28K? 
BEQ 10$ ;8R IF NO 
MOV ; R1.R2 ;SAVE LOW ORDER BITS 
ASR RO s;CONVERT WORD ADDRESS TO 32W BLOCKS 
ROR Rl :MAKE IT DOUBLE PRECISION 
BIC #177,R1 ;ALIGN FOR LOWER 4K BOUNDARY 
CMP R1,KTFLG ;HIGHER THAN EXISTING MEMORY? 
BHIS 10 ;BR IF YES 
MOV R1, aeKIPARS ;SETUP MAPPING REGISTER PARS 
BIC #160000 ,R2 }SETUP DISPLACEMENT IN PAGE 
ADD #120000; R2 ‘ADD IN PARS BIAS 
MOV R2,RO ;RETURN IN RO 
SEC SET SUCCESS 
BR 15$ PF 

10$: cLC ;SET FAILURE 

15$: RTS 


PC RE 
“SBTTL REGSAV - SAVE R1-RS ON STACK 
| Td 


ROUTINE TO 
SAVE R1 THROUGH RS ON THE STACK 


CALLING SEQUENCE: 
JSR —s RS, REGSAV 


i THIS IS A COOROUTINE WHICH TRANSFER CONTROL BACK TO 
sTHE CALLING ROUTINE. AT THE END OF THE CALLING ROUTINE, 
Du. Ait Be RETURNS CONTROL TO THIS ROUTINE TO RESTORE 

: ° 


;THIS ROUTINE SHOULD ONLY BE CALLED FROM ROUTINES WHICH ARE 
sCALLED VIA A JSR PC INSTRUCTION 
; 


SEQ 0086 


J7 
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REGSAV 


gee 


Seseece 
OCU aWNrRO 
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- SAVE R1-RS ON STACK 


s- 
REGSAV: 


RR RR Lal lntntetatel 

Drervvo- OOS 

ceaeat 5 minnie 
wv 


SEQ 0087 


KK 7 
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GETPAT - GET 8 BIT PATTERN FROM OPERATOR 
3424 
3425 
3426 
3427 ; 
3428 3; INPUTS: 
3429 ; 
3430 OUTPUTS 
3431 ; 
3432 ; 
3433 ;CALLING 
3434 . 
3435 - 
3436 017516 GETPAT:: 
3437 017516 
3438 017522 1$: 
017322 104443 
01 017552 
017530 2 
017532 017554 
017534 000377 
017536 
017540 000377 
017542 10000$ : 
3439 017542 
017542 103367 
3440 017544 013700 017552 
3441 017550 000207 
3442 
3443 
3444 
3445 Be 
3446 
3447 017552 000000 PATDAT: 
3448 017554 105 116 124 DATASC: 
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-SBTTL GETPAT - GET 8 BIT PATTERN FROM OPERATOR 


;ROUTINE TO REQUEST AN 8 BIT DATA PATTERN FROM THE OPERATOR 


NONE . 

RO OCTAL NUMBER FROM THE OPERATOR 

SEQUENCE : 

JSR PC,GETPAT 

SAVREG SAVE THE GENERAL REGISTERS 
GMANID DATASC,PATDAT,O,377,0,377,NO 

TRAP C$GMAN 

BR 0000$ 

“WORD PATDAT 

“WORD ‘TSC 

“WORD  DATASC 

"WORD 377 

“WORD  T$LOLIM 

"WORD T$HILIM 

BNCOMPLETE 1s RETRY IF ERROR 

MOV PATDAT RO ;DATA PATTERN FROM OPERATOR 
RTS PC RETURN TO CALLER 


;LOCAL DATA AREA 


cata STORAGE FOR DATA 


-WORD. 0 
-ASCIZ ‘ENTER DATA PATT 
-EVEN 


‘ 


ar 


SEQ 0088 


L7 
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346 
3470 017640 


3480 017771 
3481 
3482 020020 


000000 
177777 


103352 
013700 
02000 


1 
101411 
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GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 


017764 
000002 


020020 
017716 
000001 


000004 


116 


045 
164 


SEQ 0089 


-SBTTL GETSEL - ISSUE MENU AND GET OPERATOR RESPONSE 
; ROUTINE TO ISSUE A MENU AND GET THE OPERATOR'S RESPONSE. 


: 
; INPUTS: 
; RO ADDRESS OF ASCIZ STRING OF MENU 
: R1 MAXIMUM ALLOWABLE OPERATOR RESPONSE 
sOUTPUTS: 
: NUMBER OF THE OPERATOR'S SELECTION 
GETSEL: : 
SAVREG ; SAVE GENERAL REGISTERS 
MOV RO,R2 ;SAVE THE MENU ADDRESS 
1$: R2,R3 ;START OF MENU STRING 
2$ TST (R3) :END OF ASCII ? 
BEQ 3¢ ;BRANCH IF ALL LINES DISPLAYED 
PRINTF @SELASC,(R3)+  ;DISPLAY THE MENU 
MOV (R3)+,-CSP) 
MOV OSELASC, -(SP) 
MOV #2. -(SP) 
TRAP CSPNTF 
ADD , 


BR 2 
3$: GMANID MENASC ,MENRES,D,-1,0,-1,NO 
TRAP C$GMAN 


BR 10001$ 
. WORD MENRES 
-WORD TS$CODE 
. WORD MENASC 
-WORD -1 
WORD T$LOLIM 
. WORD TS$HILIM 
100018: 
gate | 1$ sRETRY IF ERROR 
MOV MENRES ,RO :GET THE OPERATOR'S REPLY 
CMP RO,R1 sCOMPARE TO MAXIMUM ALLOWED ys 
BLOS 5$ sBRANCH IF OK 
PRINTF @MENERR sDISPLAY ERROR MESSAGE 
MOV OMENERR , -( SP) 
MOV #1.,¢SP) 
TRAP = C$PNTF 
ADD 04,SP 
BR 1$ sRETRY 
S$: RTS PC ;RETURN TO CALLER 
MENERR: .ASCIZ ‘sSNSA ee* Menu Selection Too Large ++’ 


SELASC: :ASCIZ ‘'siNsT’ 
MENASC: ty ‘Enter Menu Selection: ' 


MENRES: © .WORD 0 


M7 
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SEQ 0090 
CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
zene .SBTTL CHKMAN - CHECK MANUAL INTERVENTION LEGALITY 
3° 
3486 3 
348? ;ROUTINE TO TEST FOR MANUAL INTERVENTION LEGALITY. 
; 
3489 ; INPUT: 
3490 : 
3491 : NONE . 
3492 3 
3493 ; OUTPUT: 
: 
3495 ; CARRY 0 MANUAL INTERVENTION NOT ALLOWED 
3496 ; 1 MANUAL INTERVENTION IS OK 
"7 
3498 ;SIDE EFFECTS: 
: 
3500 : A MESSAGE IS DISPLAYED WARNING THAT TEST IS 
3501 ; NOT EXECUTED IF MANUAL INTERVENTION IS NOT 
3502 ; ALLOWED. 
3503 ; 
3504 s- 
3505 
3506 020022 CHKMAN: : 
3507 020022 SAVREG ;SAVE THE REGISTERS 
3508 020026 MANUAL ;SEE IF MANUAL INTERVENTION OK 
020026 104450 TRAP C$MANI 
3509 020030 BCOMPLETE 1$ ;BRANCH IF ALLOWED 
020030 103411 BCS i$ 
3510 020032 PRINTF #NOMAN ;PRINT THE WARNING MESSAGE 
020032 012746 020056 MOV @NOMAN, - (SP) 
020036 012746 000001 MOV #1,-(SP) 
020042 010600 MOV SP‘ RO 
020044 104417 TRAP CSPNTF 
020046 062706 000004 ADD $4,SP 
3511 020052 000241 CLC ;CLEAR CARRY FOR ERROR 
3312 020054 000207 1s: RTS PC ;RETURN 


seis 020056 045 116 045 NOMAN: .ASCIZ ‘SNSA ##* Manual Intervention not Allowed - Test Aborted *++*' 
even 


N7 
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ENVIRN 


SS 
3556 020330 
3557 020330 
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- SETUP FREE DIAGNOSTIC SPACE 


003126 
003130 
003130 


002120 


-SBTTL ENVIRN 


SEQ 0091 


- SETUP FREE DIAGNOSTIC SPACE 


; SUBROUTINE TO SET-UP VARIOUS ENVIRONMENTAL PARAMETERS. 


TRAP —s«C$ 
MOV RO, FREE 
ADD $2 FREE 
MOV (RO), FRESIZ 
SUB »FRESIZ 
MOV L$UNIT,R2 
10$: SUB $7, FRESIZ 
DEC R2 
BNE 10% 
MOV FREE ,RO 
ADD FRESiZ, RO 
SUB #2,R 
MOV RO. PREEHI 
NOP 
MOV @BDVPCR,R1 
MOV R1,R2 
ADD #2. 
JSR PC 
BCC 153 
BR 40$ 
15¢: MOV BOVPCR,R1 
ADD 1,R1 
MOV @BOVPCR ,R2 
INC 2) 
MOV BOVPCR RS 
CMP R3 
BNE 
INC T23A 
BIC #170000, L $HIME 
3 NOP 
: PRINTF 948186 
BR 40$ 
208: INC 7238 
; NOP 
a PRINTF @M8189 
RTS PC 


; GET 1ST FREE ADDRESS... 
3...AND WORD COUNT. 

; GET NUMBER OF UNITS 

3 TAKE AWAY 7 WORDS PER UNIT 
;GET FIRST FREE ADDRESS 
sPOINT TO LAST FREE ADDRESS 
sBACKUP 1 

sSTORE LAST FREE ADDRESS 


§ FSSSSSSSSSSESS SS SSS SSS SESS SESS SSSSESSESESSESES 


I 
PCR_ADORESS 


40% FOR RELEASE 
;TELL THE SYSTEM TYPE 
3 URN 
3SET THE FLAG 
3BR 40$ FOR RELEASE 
sTELL THE SYSTEM TYPE 


sRETURN 


B8 
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SEQ 0092 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 


3359 .SBTTL KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
560 3 — 

3561 ; 

3562 ;ROUTINE TO INIT KT-11 

3563 ; 

3564 .. 

3565 

3566 020332 KTINIT: 

3567 020332 005037 003134 CLR KTFLG ; INIT >28K MEMORY FLAG 
3568 020336 005037 003136 CLR KTENABLE ; INIT TEST >28K FLAG 

3569 020342 023727 002120 001577 CMP L$HIME , 61577 ; GOT ENOUGH MEMORY (>28K)? 
3570 020350 101454 BLOS $ : NO. 

3571 020352 013700 000004 MOV @PERRVEC RO ; SAVE OLD ERR VEC PTR. 
3572 020356 012737 020470 000004 MOV $2$ , APERRVEC ; SET ERR VEC PTR. 

3573 020364 005737 177572 TST aesRo ; GOT KT11? 

3574 020370 000240 NOP ; CTRAP IF 

3575 020372 013737 002120 003134 MOV L$HIME ,KTFLG ; YES. SET KT FLAG. 

3576 020400 022737 010000 003134 CMP #10000, KTFLG ; THAN 18 BITS? 

3577 020406 100404 BMI 4$ : 

3578 020410 042737 003777 003134 BIC 03777, KTFLG ; 

3579 020416 000403 BR S$ ; 

3580 920420 042737 000177 003134 4%: BIC 9177, KTFLG ; 

3581 020426 010037 000004 S$: MOV RO, @PERRVEC : RESTORE OLD ERR VEC PTR. 
3582 020432 005000 CLR RO ; RO = AR DAT 

3583 020434 012701 172340 MOV OKIPAR ; Rl = KI REGS: PTR 

3584 020440 012761 077406 177740 18: MOV 377406, Gcr1) ; SET DESCRIPTOR REG 

3585 020446 010021 MOV R13 ; SET KIPAR REG. 

3586 020450 062700 000200 ADD 8009 HO ; BUMP AR DATA BY “4K", 
3587 020454 020027 002000 CMP RO, #2000 ; AT “I/0"? 

3588 020460 001367 BNE 1$ ; NO. 

3589 020462 012741 177600 MOV $177600,-(R1)  ; YES. SET KTPAR7 FOR I/0. 
3390 020466 000405 BR 9$ 

3592 020470 012716 020476 2$: MOV #6$,(SP) ; SET UP RETURN 

3393 020474 000002 RTI ; RTI TO NEXT LOCATION 
3395 020476 010037 000004 6$: MOV RO, AMERRVEC ; RESTORE OLD ERR VEC PTR. 


3597 020502 000207 9$: RTS PC 





TSV3 - GLOBAL AREAS 


KTINIT 
3599 
3601 


020650 
020654 


013705 
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- SETUP KT11 MEMORY MANAGEMENT REGISTERS 


002206 
016034 


002202 
076320 
010662 


075650 
000200 
100206 
020660 
000006 
100010 


020650 
010662 


076340 


* 


SUBROUTINE TO SET EXTENDED FEATURES SWITCH 


INPUTS: 

RS CURRENT UNIT NUMBER 
tOUTPUTS 

The Extended Features Switch is set. 
: 
Toa 


INVERT: : 
mov gp Fat 
sr sofin 
cL 
i r0,rl or o: 
rr, 
mw i 
-WORD 1201 
- WORD ioe 
.» WORD sftimsg 
258 ed trap cterdf 
: c 
TRAP” © C$CLP1 
mov unitn, t39dew 
mov Lage oe ns 
jsr swrtchr 
bcs Bos 
oe fi 
errhrd errno,wr Ss 
TRAP CseRHRD 
-WORD 1201 


-WORD wrt 
. WORD sf imen 


SO0$: ck loop 
TRAP C$CLP1 
mov t39bfr+12,r1 


trap cterhrd 


bit @bit7.r 
10$: MOV #100206 , CMDPKT ; WRT SUB-SYS MEM CMD 
MOV @WSMBK , CHDPKT +2 ; MSG BUF ADDR 
MOV T+6 ; BYTE COUNT 
MOV 9100010, WSMBK ; INVERT THE SWITCH 
MOV MDPKT ; ; SET CMOPKT INTO R4 
JSR PC,WRTCHR ; DO IT 
1$: RTS ; RETURN 
F COMMAND PACKET. 
‘ = <,3>€177774 ;MUST BE ON MOD 4 BOUNDRY. 
CMDPKT:: 0 31ST WORD IS TSOS COMMAND. 
0 32ND WORD IS THE BUFFER LOW ADDRESS 
0 ;3RD WORD IS THE BUFFER HIGH ADDRESS. 


3 
; 
3 
; Requires that SOFINIT and WRTCHR have been done previous to call. 
3 
3 
. 


SEQ 0093 
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KTINIT 


- SETUP 


3646 020656 


02066¢ 
020662 
020664 


000000 


000U00 
000000 
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KT11 MEMORY MANAGEMENT REGISTERS 


007777 


005777 


003777 


001577 


003144 


SEQ 0094 
0 ;4TH WORD IS THE BYTE/RECORD/FILE COUNT. 
; WRITE SUB-SYSTEM MEMORY CHARACTERISTIC BLOCK. 
WSMBK:: O 31ST WORD:: SEL O 
0 s2ND WORD:: SEL 2 
0 33RD WORD:: SEL 4 
.EVEN 
; SUBROUTINE TO CHECK WETHER OR NOT WE'LL TEST NXM 
; 
PINPUTS: 
;OUTPUTS: 
3 The NXMFLG is set if we can test. 
3 The NXMLO and NXMHI addresses are setup. 
a 
MEMCK: : 
SAVREG ;SAVE THE REGISTERS 
CLR NXMFLG ;CLEAR THE FLAG 
CLR 0 :CLEAR THE TEST ADDRESS LO 
CLR NXMHI sCLEAR THE TEST ADDRESS HI 
ist 1238 31S IT A 11/238? 
or L SHINE 07777 GREATER THAN 128K 
JSR PC ,NXMTST iSETUP THE ADDRESS 
BR 13% ;SET THE FLAG AND EXIT 
1s: Tst 125A 31S IT A 11/23A? 
24: CMP L$HIME , #5777 }GREATER THAN 96K 
BHI 14$ sYES,23A/238 WITH 128K MEMORY 
CMP L$HIME , 03777 ;GREATER THAN 64K BUT LESS THAN 92K? 
BLO 4$ sNO 2 
JSR PC .NXMTST ;SETUP THE S 
BR 133 3SET THE FLAG AND EXIT 
43: CMP L SHINE, 01577 ;GREATER THAN 24K BUT LESS THAN 64K? 
BLO 14$ NO, TELL THEM AND EXIT WITH FLAG CLEAR 
JSR PC,NXMTST ;SETUP THE ADORE 
ADD $77 ,NXMHI sFOOL THE 11/02 & 11/03 
13$: INC nxn LG SET THE FLAG 
14%: BR 15$ NOP FOR PRINTOUT 
PRINTF ' sTELL THEM & EXIT ##¢NO PRINTseees 
MOV -(SP) 
mov #1, ass”? 
TRAP CsPONTF 
ADD $4,SP 
15$: RTS PC ;RETURN 
- SUBROUTINE TO SETUP THE NXM ADDRESS FOR TESTING 
} OUTPUTS : NXMLO, NXMHI SETUP WITH NXM ADDRESS 
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SEQ 0095 
KTINIT - SETUP KT11 MEMORY MANAGEMENT REGISTERS 
3698 ; 
#33 ‘ 
3701 021042 013701 002120 NXMTST: MOV L$HIME ,R1 ;GET TOP OF MEMORY 
3702 021046 062701 000200 ADD $200 ,Ri ;MAKE IT I70 BLOCK OR OTHER NXM 
3703 021052 042701 000177 BIC #177._R1 
3704 021056 010102 MOV R1,R2 ;RESAVE RESULTS 
3705 000006 .REPT 6 
708 AS on Ri ;PUT IN PLACE FOR XFER 
3708 021074 010137 003142 MOV R1,NXMLO ;SAVE TEST ADDRESS LOW 
3709 000012 .REPT 10. 
3710 ASR R2 ;PUT IN PLACE FOR XFER 
3712 021124 042702 177700 BIC #177700,R2 ;DON’T ‘SANT ILA! 
3713 021130 010237 003144 MOV R2,NXMHI ;SAVE “EST ADDRESS HIGH 
3714 021134 000207 RTS PC ;RETURN 
3716 021136 ENDMOD 
3725 -TITLE TSV4 - MISCELLANEOUS SECTIONS 
3727 021136 BGNMOD TSV4 
021136 TSV4:: 
3728 
3734 
3735 
3736 
3737 .SBTTL PROTECTION TABLE 
3738 021136 BGNPROT 
021136 L$PROT:: 
3739 021136 177777 177777 «#177777 WORD -3, -3, -3, -1 :NO DEVICE PROTECTION REQUIRED. 
3740 021146 ENDPROT 
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INITIALIZE SECTION 


002226 


000035 


000037 


002200 


002012 


003200 


-SBTTL INITIALIZE SECTION 


SEQ 0096 


} THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 


3AT THE 


BEGINNING OF EACH PASS. 


3 
sIF “START” OR “RESTART”, SET QUICK-PASS FLAG AND BUS-INIT. 


sIF “CONTINUE”, 


inseat 
- 
L$INIT:: 
40$: 


1$: 


2s: 


TEMPORARY JUMP TO ODT 
BGNINIT 
CLR EXTFEA 
CLR NXMFLG 
MOV GEPRT1, EPRTSW 
CLR SIFLAG 
CLR KTENABLE 
CLR RAMSIZ 
READEF EF .CONTI 
MOV @€F . CONTINUE ,RO 
TRAP CS#REFG 
BNCOMPLETE 1$ 
BCC 1$ 
CMP UNITN,L$UNIT 
BHIS 4$ 
TST DUFLG 
BMI NXTU 
MOV UNITN,R1 
ASL R1 
TST ERTABL(R1) 
BEQ TU 
BIT #81714, ERTABL(R1) 
BNE NXTU 
EXIT INIT 
TRAP CsExIT 
-WORD. 1L10030- 
READEF @€F. 
MOV oF . 
TRAP C$REF 
BNCOMPLETE NXTU 
BCC NXT 
READEF 9€F .START 
MOV EF . START ,RO 
TRAP CSREFG 
BCOMPLETE 2% 

cs es 
READEF EF .RESTART 
MOV EF .RESTART,RO 
TRAP CS$REF 
BNCOMPLETE 31% 
BCC 
BRESE 
TRAP C$RESET 


NOTHING iS REQUIRED 


sSET UP PRIMARY MESSAGE FOR REPLACEMENT 
;CLEAR “SOFT INIT” FLAG 

sCLEAR TEST ABOVE 28K FLAG 

sCLEAR RAM SIZE FOR RAMERR ROUTINE 


;UNIT IN RANGE? 
;6R IF NO. 
sDROPPED UNIT? 
;B8R IF YES 


;DROPPED? 
:D0 NOTHING IF “CONTINUE”. 


; TAKE NEXT UNIT IF NOT NEW PASS. 


31ST PASS 


BUS-INIT... 
;BUS RESET. 


G8 
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INITIALIZE SECTION 


3763 021310 005037 
3784 021 


Ua 021330 005037 


104444 
3813 021442 000240 


38 012001 
3832 021520 010137 


003402 
177777 


002204 
021444 


177777 
002220 


002202 
002202 
177777 


002012 
002220 


000100 
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002204 


31$: 


002202 NEWPAS: 
NXTU: 


11$: 
PASRPT: 


10$: 
SETU: 


CLR FATFLG 

CLR T23A 

CLR T238 
$340, = ¢ SP) 

MOV #20$,-CSP) 
0.00f 

CLR SKIPT 

MOV @-1 o 


CLR (RO)+ 
CMP RO, #ERTABE 
BLO $ 

BR 43 

CLR ave 

JMP PASRPT 

MOV #-1,UNITN 
CLR DEVCNT 

BREAK 

TRAP C$BRK 

INC 

CMP UNITN,L$UNIT 
BLO 


TRAP C$#0CLN 


MP L$UNIT,@1 
NEWPAS 


BIT #ISR,RO 
BNE As 
DORPT 
TRAP C$DRPT 
WPAS 
GPHARD ™N,RO 
MOV UNITN, RO 
TRAP C$ 
BNCOMPLETE NXTU 
BCC NXTU 
CLR DUFLG 
INC DEVCNT | 


MOV (RO)+ 
MOV Ri, 2SAADOR 


NUMBER OF TESTS RUN IN PASS 
OR COUNT 


sCLEAR 11/23A FLAG 
sCLEAR 11/238 FLAG 


9 TO DEBUGGER 


THE DEBUGGER 
EAR THE SUBTEST “SKIPPER” 


;...QUICK VERIFY... 

sSET_ ENVIRONMENT. 

sINITIALIZE KT MEMORY MANAGEMENT 
s;CLEAR THE ERROR TABLE 


3GO REPORT THE STATUS 


sINIT UNIT NUMBER.. 
;CLEAR COUNT OF DEVICES RUNNING 


;...AND SET NEXT UNIT NUMBER. 


sABORT, NO MORE UNITS. 


sHOW MANY UNITS SELECTED? 
7BR IF ONLY 

sARE ANY STILL RUNNING? 
;68R IF NO 


sSHOULD WE PRINT STATISTICS 
sBR IF NO 


sGET UNIT N P-TABLE POINTER. 


sBR IF UNIT NOT AVAILABLE. 
sCLEAR “DROPPED” FLAG. 
sGET 1ST REGISTER ADDRESS 


sADDRESS OF REGISTERS OF UNIT UNDER TEST 


SEQ 0097 


H8 
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INITIALIZE SECTION 


3833 


34 021524 


021526 
8 021532 
021536 


021542 


021672 


75 021674 


012001 


010137 
012721 
013721 


013701 
006301 
052761 
005037 
023727 
101416 


3005 
010137 
012737 


012700 
104441 


104411 
045 


003116 
002206 


000002 
016436 


003116 
177777 


116 


SEQ 0098 


MOV CRO)-+,R1 ;GET VECTOR ADDRESS. 


;MOV (RO), R2 GET INTERRUPT PRIORITY 
;MOV  R2,IPRI 3SET INTERRUPT PRIORITY 
MOV R1.1VEC ;SET INTERRUPT VECTOR POINTER. 
MOV @INTR (R1)+ ;...VECTOR. 
MOV 1,¢R1)- ;...AND PRIORITY. 
1$: 
; TST ave :1ST PASS 2? 
: BEQ S$ ;NO, SKIP THE PASS 1 STUFF. 
; 
31ST PASS, CHECK THAT DEVICE ADDRESSES ARE VALID, AND 
;THAT THE DISPLAY STATUS IS PROPERLY INITIALIZED. 
b 
MOV UNITN,R1 
ASL Ri 
003200 BIS #81T15,ERTABL(R1) sSAY DEVICE RUNNING 
CLR EXTA sCLEAR ERROR EXTENSION FLAG. 
000001 CMP L$UNIT, #1 ;ARE WE TESTING MULTIPLE UNITS? 
BLOS 10$ ;BR IF NO. 
RFLAGS RO YES -- GET OPERATOR FLAGS. 
TRAP C$RFLA 
BIT OPNT,RO ;SHOULD WE PRINT UNIT #? 
BEQ 10$ ‘BR IF NOT 
PRINTF #PUNIT,UNITN ;PRINT THE UNIT @ 
MOV UNITN, -(SP) 
MOV va 
MOV #2,-(SP 
SP, 
TRAP  C$PNTF 
ADD $6, 
10$: 
CLR NODEV 
MOV CSRADOR,R1 ;ADDRESS OF FIRST REGISTER 
MOV R1,R2 sSTART OF REGISTERS 
ADD #TSSR,R2 sADDRESS OF TSSR REGISTER 
JSR PC, XNXM rTEST BOTH CONTROLLER REGISTERS... 
BCC 2s “AND BR IF ALL 
MOV Ri, NODEV iFLAG DEVICE AS NON-EXISTENT 
003114 e MOV #-1,DUFLG ;OROP THIS UNIT 
3 
;FINALLY, SET CPU PRIORITY AND WE’RE DONE. 
Ss; SETPRI #PRIOO ;ENABLE INTERRUPTS. 
MOV @PRIOO,RO 
TRAP — C$SPRI 
ENDINIT 
L10030: 
TRAP C$INIT 


045 PUNIT: Bea /SNSNSAeeeee TESTING UNIT sD28A eeeee/ 
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SEQ 0099 
ADD AND DROP UNITS SECTIONS 

3878 .SBTTL ADD AND DROP UNITS SECTIONS 
3881 ; THE ADD-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3882 TO BE (A) ADDED TO THE TEST LIST FOR THE FIRST TIME 
3883 OR (B) RE-INSERTED IF IT HAD BEEN PREVIOUSLY DROPPED. 
3884 - 
3885 021742 BGNAU 

021742 L$AU:: 
3886 021742 010001 MOV RO,R1 ; GET UNIT TO BE ADDED (RO) 
3887 021744 006301 ASL Ri ; MAKE IT A WORD INDEX 
3888 021746 052761 100000 003200 BIS #100000, ERTABL(R1) ; SET THE “ACTIVE” BIT 
3889 021754 042761 040000 003200 BIC 40000, ERTABL(R1) ; CLEAR THE “DROPPED” BIT 
3890 021762 PRINTF #1$,RO 

021762 - 

021764 012746 022010 MOV 01$,-(SP) 

021770 012746 MOV 2.-(SP 

021774 MOV 

021776 104417 TRAP CSPNTF 

2000 062706 000006 A 96, 

3891 022004 EXIT Al 

022004 000167 ‘ J$ UMP 

022006 000026 [WORD £L10031-2-. 
3892 022010 045 116 045 14: "ASCIZ /sNSA UNIT DSA ADDED/ 
3893 “EVEN 
3894 
3895 022036 ENDAU ; UNUSED 

022036 L10031: 
<a 022036 104452 TRAP = C$AU 

3ee 
3897 ; THE DROP-UNIT SECTION CONTAINS THE CODING THAT CAUSES A DEVICE 
3898 ; TO BE REMOVED FROM THE TEST LIST. 
: 

3900 ; SUPVSR DOES THE “DROPPING”. THIS IS JUST TO TELL THE MAN. 
3901 ; “DROPPED” UNITS ARE RE-SELECTED ON OPERATOR “STA” OR “ADD* 
3902 ; COMMAND, OTHERWISE REMAIN INACTIVE. THE “DISPLAY” COMMAND 
3903 ; WILL PRINT ALL DROPPED UNITS, AND THE P-TABLES OF THOSE 
3904 ; WHICH ARE STILL ACTIVE. 
3905 ; UPON ENTRY, RO CONTAINS THE UNIT TO BE DROPPED. 
3907 022040 BGNDU 

022040 L$DU:: 
3908 022040 012737 177777 003114 MOV @-1,DUFLG 

022046 010001 MOV RO,R1 
3910 022050 006301 ASL R1 
3911 022052 052761 140000 003200 BIS #140000, ERTABL(R1) ; SAY DROPPED 
3912 022060 000240 000240 000240 240,240,240 3 222222222 
3913 022066 PRINTF '#1$,RO 

022066 010046 MOV RO, -(SP) 

022070 012746 022114 MOV 01%,-(SP) 

022074 012746 000002 MOV @2,-(SP) 

022100 01 

022102 104417 TRAP C$PNTF 

022104 062706 000006 ADD 66, SP 
3914 022110 EXIT OU 

022110 000167 “WORD  J$UMP 

022112 000030 “WORD 110032-2-. 


J8 
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SEQ 0100 
ADD AND DROP UNITS SECTIONS 

3915 022114 045 116 045 1$: -ASCIZ /SNSA UNIT #D8A DROPPED/ 
3916 .EVEN 
3917 022144 

022144 L10032: 
e018 022144 104453 TRAP C$0uU 

3° 
434 ; AUTO-DROP CODE SECTION. 
aoe 

3921 022146 BGNAUTO 

022146 L$AUTO:: 
3922 022146 013705 002206 MOV CSRADOR ,RS sPOINT 19 DEVICE REGISTER 
3923 022152 012703 000550 MOV $360. ,R3 sENOUGH TIME FOR 2400’ REEL TO REWIND 
3924 022156 004737 016310 10$: JSR PC, WAITF SWAIT FOR SSR TO SET 
3925 022162 103420 BCS 203 ;LEAVE WHEN SSR IS SET 
3926 022164 DELAY 250. WAIT FOR .25 SECONDS 

022164 012727 000372 MOV #250. ,CPC)- 

022170 000000 -WORD O 

022172 013727 002116 MOV L$DLY,(PC)- 

022176 000000 -WORD 0O 

022200 005367 177772 DEC -6(PC) 

022204 001375 BNE .-4 

022206 005367 177756 DEC -22(PC) 

022212 001367 BNE .-20 
3927 022214 005303 DEC R3 :BUMP COUNTER DOWN 
3928 022216 001357 BNE 10$ 3KEEP GOING 
3929 022220 004737 017242 JSR PC, CKDROP ;TRY AND DROP UNIT 
3930 022224 20$: 
3931 022224 ENDAUTO ; UNUSED. 

022224 L10033: 

022224 104461 TRAP C$AUTO 


K8 
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SEQ 0101 
CLEAN-UP AND REPORT CODING SECTIONS ae 
3933 ; .SBTTL CLEAN-UP AND REPORT CODING SECTIONS 
3935 +3 
3936 THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS 
3937 : EXECUTED AT THE END OF EACH PASS COR SUB-PASS). 
3338 ; USE TO RETURN DEVICE UNDER TEST TO A NEUTRAL STATE. 
gee 
3940 022226 BGNCLN 
022226 LS$CLEAN: : 
3941 022226 013705 002206 Mov CSRADDR ,RS POINT TO DEVICE REGISTER 
3942 022232 005737 003114 TST DUFLG ;"DROPPED” FLAG IS SET ON.. 
3943 022236 100405 BMI 1$ ;...AND GROSS CONTROLLER FAULT. 
3946 :...DON’'T TRY TO XCT CLEANUP CODE. 
3946 022240 012765 000000 000002 MOV #0, TSSRCRS) ;00 SOFT INIT 
3947 022246 004737 016310 JSR PC. WAITF 
3948 022252 1$: 
3949 022252 2$: ENDCLN 
022252 L10034: 
. 022252 104412 TRAP —- C$CLEAN 
950 3° 
3951 ; THE REPORT CODING SECTION CONTAINS THE 
Sone ; “PRINTS” CALLS THAT GENERATE STATISTICAL REPORTS. 
gece 
3954 022254 BGNRPT 
022254 LSRPT:: 
3955 022254 PRINTS #DEVSUM 
022254 012746 022516 MOV #DEVSUM, -( SP) 
022260 012746 000001 MOV #1,-(SP) 
022264 01 Vv 
2266 104416 TRAP CSPNTS 
022270 062706 000004 ADD 
3956 022274 010246 MOV R2.,-(SP) 
3957 022276 010346 MOV 3,-(SP) 
2 01 MOV R4’-(SP) 
3959 022302 012704 003200 MOV gER ° ; GET START OF ERROR TABLE. 
3960 022306 005003 CLR R3 ; CLEAR UNIT NUMBER 
3961 022310 011402 1s: MOV (R4),R2 ; GET ERROR TABLE ENTRY & TEST IT. 
3962 022312 001467 BEQ 4$ ; ZERO IF UNIT NOT RUN 
3963 022314 100066 BPL 43 
964 022316 032702 040000 BIT $B1T14,R2 ; WAS UNIT DROPPED? 
3965 022322 001015 BNE 2$ ; BR IF YES 
022324 042702 170000 BIC $1C7777,R2 ; GET ERROR COUNT FIELD 
3967 022330 PRINTS #DEVONL.R3,R2 ; PRINT 
022330 010246 MOV 2.-(SP) 
022332 010346 MOV R3,-(SP) 
022334 012746 022553 MOV ODEVONL , -( SP) 
022340 012746 MOV 03, -(SP) 
022344 01 Vv RO 
2346 104416 TRAP CSPNTS 
022350 706 000010 ADD 610,SP 
3968 022354 000446 BR 43 
3969 022356 020227 160000 2$: CMP R2, #160000 ; WAS UNIT NON-EXISTENT? 
3970 022362 001012 BNE 3% ; BR IF NO 
3971 022364 PRINTS BOE VNR R3 
22364 010346 Vv -(SP5 
022366 012746 022623 MOV pe at - -(SP) 


L8 
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CLEAN-UP AND REPORT CODING SECTIONS 


000010 
000002 


3333 


3$: 


30$: 


4$:. 


a 


5 
é 


saaEss recs 
: ; 33 gaz 
O° EBGesy “a 


Beso 
22 


(SP )+-,R2 
; 


C$RPT 


; WAS UNIT NOT READY AT STARTUP? 
BR IF NO. 


/SNSADEVICE STATUS SUMMARY :sN/ 
13K #0 ONL INE 


ERRORS = sDsN/ 
NON - EXISTENT a ee 
NOT READY AT STARTUPSN/ 
ERRORS = sDsN/ 


SEQ 0102 


M8 
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SEQ 0103 
CLEAN-UP AND REPORT CODING SECTIONS 
4000 -TITLE TSVS - HARDWARE TESTS 
4001 
4008 4 
4009 023036 BGNMOD TSVS 
4015 023036 TSVS:: 





N8 
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TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 


012700 
004737 
012737 
004737 
012703 
.¢) 
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002222 
000000 
016376 


002222 


-<SBTTL TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
; TEST DESCRIPTION: 


This test verifies that a Hardware Initialize command 
invoked after a Write Characteristics command sets up 
the Command, Message and Cheracteristic image blocks 
in the controller ram correctly. 


TEST STEPS: 
a FOR LOOPCNT 
Do WRITE CHARACTERISTICS command. 
If the NBA bit in the yy anne seer is NOT=0 then Print Error. 


Write to TSSR register t initialize the controller 
If controller R 310- 377 NOT=0 then Print Error 


#TST131D,RO ;ASCII MESSAGE to IDENTIFY TEST 
JSR PC, TSTSETUP ;D0 INITIAL TEST SETUP 

pad MOV 010. ,LOOPCNT }PERFORM 10 ITERATIONS 
“JSR PC, TI3REST sSET PACKET TO START-UP VALUES 


MOV ore r * 29. 


START OF TEST DATA 
MOV oT13P o-age T THE ADDRESS OF COMMAND PACKET 
a MOV 08. PKECNTCR4) {START WITH MINIMUM ALLOWABLE VALUE 
JSR PC, SOF INIT ;WRITE TO TSSR TO SOFT INITIALIZE 
BCS 10 OF :8R IF SOFT INIT OKAY 
MOV iSAVE CONTENTS OF TSSR 
ERROF ERAND, SF IERR, SFIMSG ‘DEVICE FATAL DURING INIT 
TRAP C$ERDF 
.WORD 100 
.WORD SFIERR 
“WORD SFIMSG 
;Do WRITE CHARACTERISTICS command. 
10$ CLR pate LG ;CLEAR FATAL ERROR FLAG 
MOV R4, TSOBC(RS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 
12¢ chBaor er ERROR IF FORCER=1 
BCS S$ ;8R IF C €GO00 RETURN) 
MOV Rl ; SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
12%: ERRDF ERRNO, TI3SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP ow 
: Tissa 
: PKTSSR 


Ix cop FATFLS :SET FATAL ERROR FLAG 


15%: sL00P ON ", IF FLAG SE 


SEQ 0104 


B9 
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SE@ 0105 


023166 TRAP CSCLP1 
4078 023170 016501 000002 MOV TSSRC(RS),R1 ;GET THE CONTENTS OF TSSR 
4079 023174 012702 000200 MOV #SSR ,R2 sEXPECTED CONTENTS OF TSSR 
4080 023200 032701 000100 BIT #OFL ,R1 31S OFF-LINE BIT SET ? 
4081 023204 001402 BEQ 25$ ;BRANCH IF NOT OFF-LINE 
: 023206 052702 000100 BIS #0FL ,R2 3SET OFF-LINE IN EXPECTED DATA 
4084 :If the NBA bit in the TSSR register is NOT=0 then Print Error. 
4085 023212 25$: 
023212 FORCERROR 27$ ;@aD 
4087 023226 020201 CMP R2,R1 :DOES EXPECTED MATCH RECEIVED ? 
3230 001404 BEQ 30$ sOKAY IF MATCH 
4089 023232 NEXT .ERRNO 
3232 27$: ERRHRD ERRNO, T13NBA,PKTSSR s;NBA NOT ZERO 
023232 104456 TRAP C$ERHRD 
023234 000146 . WORD 02 
023236 02 -WORD T13NBA 
32 012106 -WORD PKTSSR 
4091 023242 30$: CKLOOP ;LOOP ON ERROR ? 
> 023242 104406 TRAP C$CLP1 
4093 sWrite to TSSR register to soft initialize the controller 
4094 3244 40$: 
4095 023244 004737 016034 JSR PC,SOFINIT ;WRITE TO TSSR TO SOFT INITIALIZE 
4096 023250 FOR OR 42$ 
4097 023264 103405 BCS ;BR IF SOFT INIT OKAY 
4098 023266 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
4099 023270 NEXT .ERRNO 
4100 023270 42$: E ERRNO, SFIERR, SFIMSG s;DEVICE FATAL DURING INIT 
023270 104455 TRAP CSERDF 
023272 000147 . WORD 03 
023274 003654 -WORD SFIERR 
anna 3276 012074 -WORD SFIMSG 
4102 If controller RAM 310-377 NOT=0 then Print Error 
4103 023300 012704 000310 503: MOV #310,R4 3s START WITH LOC 310 
4104 023304 2 CLR R2 ;MEMORY EXPECTED SHOULD BE 000000 
4105 023306 105065 000000 CLRB TSDBCRS) 3SET MAI E MODE 
4106 023312 004737 016376 JSR PC, CHKTSSR sWAIT FOR SSR READY 
4107 023316 010465 000000 60$: MOV R4, TSDBCRS) sSELECT RAM ADDRESS 
4108 023322 004737 016376 JSR CHKTSSR sWAIT FOR SSR READY 
4109 023326 116501 000000 MOVB TSBACRS),R1 sREAD LOC CONTENTS 
4110 023332 FORCERROR 62$,NOTSSR aad 
4111 023342 120102 CMPBOR1,R2 :CHECK MEMORY FOR 
4112 023344 001 BEQ 70$ sBRANCH IF DATA OKAY 
4113 023346 NEXT. 
4114 023346 62$: ERRDF ERRNO, T13MEM,RAMEXP sMEMORY NOT ZERO AFTER INIT. 
023346 104455 TRAP CSEROF 
023350 000150 -WORD 104 
023352 023545 -WORD T13MEM 
33 015570 ‘ RAMEXP 
4115 023356 005237 002222 INC FATFLG 3;SET THE FATAL ERROR FLAG 
4116 023362 70$: CKLOOP 
23362 104406 TRAP CS$CLP1 
4117 023364 ESCAPE TST sEXIT ON FATAL ERROR 
023364 104410 TRAP CSESCAPE 
023366 000426 -WORD L10036- 
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4 

4172 
4173 
4174 


4175 023 


023370 
023372 
023376 


023746 
023746 
023752 
756 


100004 
023440 
000000 
000010 
023452 
000000 
000016 
000000 


111 
111 


127 
103 


012701 
012721 
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000400 


002222 


017242 
016516 


023054 


122 
157 


023430 
100004 


151 
4 


156 


SEQ 0106 


82$: INC R4 ;LOOK AT NEXT RAM LOC. 
CMP R4, 9400 ;AT TOP OF RAM ADDRESS SPACE 
BNE 60$ ;BRANCH TILL ALL MEMORY TESTED 
TST FATFLG ;ANY FATAL ERRORS ? 
BEQ 160$ ;BRANCH IF 
JSR PC, CKDROP TRY TO DROP THE UNIT 
160%: JSR PC’ TSTLOOP ;DONE ALL ITERATIONS? 
BCC 165$ ;8R IF YES 
sie JMP T13L00P ;LOOP UNTIL ITERATION COUNT DONE 
"  joxet TST 
TRAP CS$ExIT 
.WORD 110036-. 
}LOCAL STORAGE FOR THIS TEST 
3= 
T13PACKET: ;COMMAND PACKET FOR TEST 
100004 ;WRITE CHARACTERISTICS COMMAND, WITH ACK 
TLSDATA ;ADDRESS OF CHARACTERISTICS BLOCK 
8. ;STARTING VALUE OF BLOCK SIZE 


TI3DATA: sCHARACTERISTICS DATA BLOCK 
BUFFER 


ps sADDRESS OF MESSAGE 
14, sLENGTH OF MESSAGE BUFFER 


553 5558 


TI3BFR: .BLKW 8. sMESSAGE BUFFER 

sLOCAL TEXT MESSAGES FOR TEST 

g@ 

TST13I0: ASCIZ ‘Initialization After WRITE CHARACTERISTICS’ 
TI3MEM: .ASCIZ ‘Incorrect RAM Data After Init’ 


.EVEN 
T13NBA: .ASCIZ "WRITE CHARACTERISTICS Command Not Accepted’ 
T13SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 
3° 
} ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 


* SAVREG sSAVE THE REGISTERS 
MOV @TI3PACKET,R1  ;START OF THE PACKET 
MOV #100004,(Ri)+  ;WRITE CHARACTERISTICS WITH ACK 


D9 
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SEQ 0107 
TEST 1: INITIALIZE AFTER WRITE CHARACTERISTICS 
4176 023762 012721 023440 MOV @T1I3DATA,CR1)+ ;ADDRESS OF CHAR DATA BLOCK 
4177 023766 005021 CLR a d- sEXTENDED ADDRESS 
4178 023770 012721 000010 MOV C(R1)- }SIZE OF DATA BLOCK IN BYTES 
4179 023774 012721 023452 MOV STi sore. CR1)+ sADDRESS OF MESSAGE BUFFER 
4180 02 005021 CLR CR1)- 
4181 024002 Sie 'st 000016 MOV i ot »CR1)-« sLENGTH OF MESSAGE BUFFER 
4182 02 21 CLR (R1)- 
4183 024010 005011 CLR CR1) 
4184 024012 000207 RTS ;RETURN 
4185 024014 ENDTST 
024014 L10036: 
ares 024014 104401 TRAP CSETST 
ates -SBTTL TEST 2: BASIC WRITE SUBSYSTEM MEMORY COMMAND 
3° 
4189 : 
4190 sTHIS TEST VERIFIES ay THE WRITE SUBSYSTEM MEMORY COMMAND WITH A 
4191 ;BSELO SELECT CODE OF O (NO-OP) EXECUTES CORRECTLY. sh ALSO 
4192 sVERIFIES THAT A WRITE SUBSYSTEM MEMORY COMMAND WITH A NON-ZERO 
4193 sMODE FIELD IS REJECTED. THE TEST FURTHER VERIFIES MICROPROGRAM 
2195 } COMMAND DECODING AND HANDLING SEQUENCES. 
3 
4196 s- 
4197 024016 . BGNTST 
024016 Ta:: 
4202 024016 012700 025631 MOV grstie7p RO sASCII MESSAGE TO IDENTIFY TEST 
4203 024022 004737 016550 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
4204 024026 012737 000024 002216 MOV #20. »LOOPCNT sPERFORM 20 ITERATIONS 
4205 024034 T14LO0P: 
4205 024034 BGNSUB 3//////////// BEGIN SUBTEST ///////////7/ 
024034 T2.1: 
024034 1 TRAP C$B6SUB 
4207 024036 004737 025676 JSR PC, T14REST 3;SET PACKET TO INITIAL VALUES 
4208 024042 004737 025734 JSR PC, T14RST 3SET PACKET TO INITIAL VALUES 
4209 024046 SETPRI @PRIOO sLOWER PRIORITY TO ALLOW INTERRUPTS 
024046 012700 000000 MOV #PRIOO,RO 
024052 104441 TRAP C$SPRI 
4210 024054 S$: 
4211 024054 BGNSEG 3>>>>>>>>>>>> BEGIN eet, >>>>>>>>>>>> 
024054 104404 C$BSEG 
4212 024056 004737 016034 JSR PC,SOFINIT 300 SOFT INIT OF CONTROLLE 
4213 024062 103405 BCS 10% 368R IF SOFT INIT 
4217 024064 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4218 024066 ERROF ERRNO, SFIERR, SFIMSG sDEVICE FATAL ERROR DURING INIT 
024066 104455 TRAP CSERDF 
024070 000311 -WORD 201 
024072 0036 . WORD SFIERR 
024074 012074 -WORD SFIMSG 
4219 024076 10$: 
024076 012704 025170 MOV OT14PK2,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
21 024102 004737 010662 JSR PC ,.WRTCHR s1SSUE WRITE CHARACTERISTICS 
4222 024106 103405 BCS 114 ;BR, IF COMMAND JSSUED OK 
4226 024110 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
4227 024112 ERRHRD ERRNO,WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
02411 104456 CSERHRD 
024114 000312 "MORO 202 
024116 “WORD WRTMSG 


E9 
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012074 


005737 
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000000 
016376 


002222 


002224 


000200 
000100 
000100 


011154 


002222 


11$: 


15$: 


22: 


25%: 


30$: 
35$: 


59$: 


ENDSEG 


ENDSUB 


TST 


FATFLG 

INTRECV 

$T14PACKET ,R4 

R4, TSDBCRS) 

PC, CHKTSSR 

Akay 

ERRNO, T14SSR,PKTSSR 


FATFLG 
SEG 


— 
ERRNO, TI4NINT ,PKTSSR 


TSSRCRS),R1 
@SSR ,R2 
@OFL .R1 


2s5¢ 
OOF L ,R2 
R2,R1 


30 
ERRNO , T14NBA,PKTSSR 


= T aaeat 
ERRNO , PKTRAM, RAMERR 


FATFLG 


-WORD SFIMSG 
sCLEAR FATAL ERROR F 


LAG 
sCLEAR are od RECEIVED FLAG 
T NEW WRT * sbonese MEM. COMMAND 


sSAVE ENTS 
sDEVICE FATAL SSR PARES Nt 


55 
23 
g 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


TRAP 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP 


;0ID AN INTERRUPT OCCUR ? 
;BRANCH IF YES 


ANC LINE 
sSET tte IN EXPECTED DATA 
sD0ES E ag 2d MATCH RECEIVED ? 


sNBA NOT ZERO 
TRAP CSERHRD 
-WORD 205 
-WORD  T14NBA 
-WORD PKTSSR 


;CHECK RAM TO MEMORY 
;RAM OK GO ON 
3 THEY DON'T MATCH 
TRAP CSERHRD 
. WORD 206 
. WORD PKTRAM 
RAMERR 
3<<<¢44¢0¢¢<¢¢ END SEGMENT <<cccceccccce 
10000$ : 

TRAP CSESEG 
s\A\ANNANNAANNN END SUBTEST \ANANAAAAAAAY 
L10040: 

TRAP CsESUB 


sANY FATAL ERRORS ? 


SEQ 0108 


F9 
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4273 024276 001402 
4274 024300 004737 017242 
7S 024304 


4301 024352 004737 010662 
302 


4309 72 005037 002224 
4310 024376 012704 024550 
4311 024402 052714 007000 

000000 
4315 024412 004737 016310 


024430 
4320 024432 
024432 


BEQ 60$ 

JSR PC ,CKDROP 
60%: 
3 7 


sTEST 2. SUBTEST 2 


SE@ 0109 


;BRANCH IF NOT 
sTRY TO DROP THE UNIT 


; CHECK THAT NON-ZERO MODE BITS BEING SET CAUSES 
sWRITE SUBSYSTEM MEMORY COMMAND TO BE REJECTED 


BGNSUB 


SETPRI #PRIOO 


S$: MOV OT14PK2,R4 

JSR PC, TI4REST 

JSR PC: T14RST 

BGNSEG 

JSR PC, SOFINIT 

ERRNO, SFIERR, SFIMSG 

10$: 

JSR PC,WRTCHR 

ERRHRD ERRNO,WRTMSG,SFIMSG 
11%: 

CLR INTRECV 

MOV OT14PACKET ,R4 

BIS 7000, (R4) 

MOV R4, TSOBCRS) 

JSR PC. WAITF 

BCS Hy 

MOV R1 


RO, 
ERROF ERRNO,T14SSR,PKTSSR 


15%: CKLOOP 


34444444746 40474 — SAAAAAAASSSGA 
~ Sap cCsBSuB 


sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
TRAP C$SPRI 

sGET THE ADDRESS OF COMMAND PACKET 

;RESTORE PACKET TO STARTING VALUES 

sRESTORE PACKET TO STARTING VALUES 

3>>>>>>>>>>>> BEGIN SE! >>>>>>>>>>>> 
TRAP C$BSEG 

300 SOFT INIT OF OF CONTROLLER 

;BR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

DEVICE FATAL ERROR nae F al 


cs 

"WORD 207 
-WORD SFIERR 
«WORD SFIMSG 

s ISSUE WRITE yeep nae 

eat IF COMMAND ISSUED OK 

VE_CONTENTS oF TSSR 

;WRITE SUBSYSTEM MEMORY FAILED 
TRAP CSERHRD 
-WORD 208 
-WORD WRTMSG 
WORD SFIMSG 


sCLEAR_ INTERRUPT RECEIVED FLAG 
sSET-UP WITH WRT SUBSYS MEM PACKET 
OMMAND BITS 


ENTS OF 
sDEVICE FATAL SSR PRELED TO Set 


CSERDF 
-WORD 209 
-WORD T14SSR 
.WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 
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024 
024 
044 
024 000324 
024526 004747 
024530 015550 
4346 024532 
024532 
024532 104405 
4347 
4348 024534 
024534 
024534 104403 
4349 024536 
024536 104432 
024 001246 
4350 
4351 
4352 
4353 
4334 
4356 024550 
4358 024550 
4359 024550 100206 
024552 024560 
4361 024554 000000 
4362 024556 000006 
4363 024560 
4364 024560 000 
4365 024561 000 
4366 024562 000000 
4367 024564 000000 
4368 024566 
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002224 


000002 
100206 
000100 


000100 


011154 


22s: 


59$: 


ESCAPE 


TST 
BNE 
ERRHRD 


EXIT 


SEG 

INTRECV 

22% 

ERRNO, TI4NINT ,PKTSSR 


TSSRCRS),R1 
@SC! SSR! TSREI,R2 


ERRNO, T142REU,PKTSSR 


PC,CKRAM 
ERRNO, PKTRAM, RAMERR 


TST 


;LOCAL STORAGE FOR THIS TEST 


.*<,+10>€177770 


TL4PACKET: 


rpeperwe 


00206 
T14DATA 


~-Ooo°oc°o xo be 


ft 
@ 


SE@ 0110 
sBY-PASS CHECKS IF FATAL ae 
RAP CSESCAPE 

"WORD 10000$ - 
:DID AN A OCCUR ? 
sBRANCH IF YES 

TRAP CSERHRD 

-WORD 210 

«WORD TI4NINT 

.WORD PKTSSR 


LINE 
sSET OFF-LINE IN EXPECTED pera. 
3;DOES ag Ut MATCH RECEIVED ? 
sOKAY IF MATCH 
;COMMAND NOT REJECTED 
TRAP CSERHRD 


CG RAM TO MEMORY 


GO 
; THEY DON’T MATCH 
TRAP St ee 


. RAMERR 
3<<<6404<0KKe< END SEGMENT <<ceceeeeeecce 
10000$: 

TRAP CsESEG 
s\\NANNANAANAN END SUBTEST \AANANAAAAAANA 
L10041: 

TRAP CsESUB 


TRAP CSExIT 
«WORD 1L10037-. 


sALL DONE THIS TEST 


sCOMMAND PACKET FOR TEST 
sWRITE SUBSYSTEM MEM. COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sBAAL TEREST ICS DATA BLOCK 
sBSELO BYTE 

sBSEL1 BYTE 

art WORD 


;DATA 
sMESSAGE BUFFER 


H9 
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4372 025170 

4374 025170 T14PK2: 
4375 025170 100204 -WORD 100204 
4376 025172 025200 . WORD ern 


000000 ° 
4378 025176 000010 -WORD 86. 


=<, *10>€177770 


380 
4381 025200 TI40TA: 
025200 . 
4383 025202 000000 . WORD 
025204 . 


4389 ;LOCAL TEXT MESSAGES FOR TEST 
4390 i- 


4392 025212 127 122 111 T14NBA: .ASCIZ ‘WRITE SUBSYSTEM MEMORY Comm 
02 111 T142RE ciz 


SE@ 0111 


;COMMAND PACKET FOR TEST 
;WRITE CHARA. MEM. CMND. 
sADDRESS OF SELECT DATA BLOC 


sSTARTING VALUE OF BLOCK SIZE 


jo IE, ACK 


;SELECT DATA BLOCK 
sADDRESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 


and Not Accepted’ 


4393 025266 127 122 J: ASCIZ ‘WRITE SUBSYSTEM MEMORY Not Re jected With Non-Zero Mode Field’ 
4394 025363 103 157 156 T14SSR: .ASCIZ ‘Contents of TSSR Incorrect After WRITE SUBSYSTEM MEMORY’ 
4395 025453 105 170 160 TI4NINT: ASCIZ ‘Expected Interrupt Not Received On WRITE SUBSYSTEM MEMORY’ 
4396 025545 111 156 143 T14TSBA: ‘ASCIZ ‘Incorrect TSBA Address After WRITE SUBSYSTEM MEMORY’ 
4397 025631 102 141 163 TST14ID: pane -ASCIZ ‘Basic WRITE SUBSYSTEM MEMORY Command’ 

4399 

4409 

rrr 3° 

440 3 

4403 ;ROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 

4404 ;WRITE SUBSYSTEM MEMORY COMMAND 

4405 3 a 
4406 # 

4407 

4408 025676 TI4REST: 

4409 025676 SAVREG 1SAVE THE REGISTERS 

4410 025702 012701 024550 MOV @T14PACKET,R1 sSTART OF THE PACKET 

4411 025706 012721 100206 MOV #100206, (Ri)- ;sWRITE SUBSYSTEM MEM. WITH ACK, IE 
4412 025712 012721 024560 MOV @T14DATA, (R1)- ;ADORESS OF DATA BLOCK 

4413 025716 005021 CLR R1)- ;EXTENDED Ss 

4414 025720 012721 000006 MOV 06. ,(R1)+ }SIZE OF DATA BLOCK IN BYTES 

4415 025724 005021 CLR (Ri)- ;CLEAR BSELO AND BSEL1 

4416 025726 005021 CLR (R1)- ;CLEAR SEL2 

4417 025730 005011 CLR (Ri) ;CLEAR DATA AREA 

4418 025732 000207 RTS PC ;RETURN 

4419 

4420 

4421 025734 T14RST: 

4422 025734 AVREG SAVE THE REGISTERS 

4423 025740 012701 025170 MOV T14PK2,R1 sSTART OF THE P ACKET 

4424 025744 012721 100204 MOV 9100204, (R1)+ ;sWRITE CHARA. WITH A 

4425 025750 012721 025200 MOV @T140TA, (R1)- sADDRESS oF eHARATSTICS BATA BLOCK 
4426 025754 21 CLR R1)- sEXTENDED Al 

4427 025756 012721 000010 MOV $8. ,(R1)- 


sSIZE OF DATA BLOCK IN BYTES 


19 
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024566 
000400 


024566 


A lee taeda 


sMESSAGE BUFFER ADDRESS 
sLENGTH OF MESSAGE BUFFER 


sCLEAR 1ST LOC IN MESSAGE BUFFER 
;RETURN 


L10037: 
TRAP CSETST 


SE@ 0112 


JI 
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-SBTTL TEST 3: DMA MEMORY ADDRESSING 


; TEST 3 


T12LO0P: 


TEST DESCRIPTION 


This test verifies that the controller can properly address ~ 

eccess all available CPU memory (other ba that occupied by t 

diagnostic and diagnostic supervisor code) for both reading (BATT) 

and writing (DATO). Verified are the LSI-11 Bus drivers for ell 

available address lines. Up to this point only 16 bits have been 
used for DMA transfers. 


TEST STEPS 
REPEAT FROM 1 TO LOOPCNT 
BEGIN 


Do Subtest 1 - Verify GET STATUS selected locations 

Do Subtest 2 - Verify message packets selected locations 

Do Subtest 3 - Verify Characteristic data selected locations 
Do Subtest 4 - Verify NXM to selected invalid addresses 
BGNTST 


T3:: 
MOV #TST12ID,RO sASCII MESSAGE TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
INC T3BFLG }SET TEST FLAG 
JSR PC ,MEMCK sCHECK MEMORY 


sLOOP ON TEST LABEL 
-SBTTL TEST 3: SUBTEST 1: GET STATUS SELECTED LOCATIONS 


; TEST 3: SUBTEST 1: 


SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch a get status 
command from all available memory locations. 
Two word blocks ere tested one at a time by first setting 
alt aveilable memory to a background pattern of 125252. 

A Get Status command is then executed to verious addresses in 
each available memory 4k word block. The various addresses 
ere determined by floating ea 1 then a O through the address bits. 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer 


SEQ 0113 


IK9 


TSVS - HARDWARE TESTS 
TEST 3: SUBTEST 1: GET 
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016034 


027650 
031230 
003136 


000000 
016376 


027720 


177776 
177774 
000001 
030726 


003136 


;Write to TSSR to soft initialize 
JSR PC ,SOFINIT 


SEQ 0114 


“com SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Get a valid modulo-4 test address 
Do a GET STATUS command from the test address 


BGNSUB VIIIIIIIITIL BEGIN, SUBTEST ////////11 
“*' TRAP ss C$BSUB 


300 SOFT INIT OF CONTROLLER 
BCS 153 ;BR IF SOFT INIT = OK 
NEXT . ERRNO 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERROF ERRNO , SFIERR , SF IMSG ;DEVICE FATAL ERROR OAS pa cs 
; , 301 
-WORD SFIERR 
. WORD SF IMSG 
{99 e@ WRITE CHARACTERISTICS to setup ea message buffer 
MOV ST12PACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC, T12SWRT sRESTORE PACKET TO STARTING VALUES 
CLR KTENABLE sTURN OFF KT-11 
MOV R4, TSOBCRS) iSET THE PACKET ADDRESS 
JSR PC,.CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 17% 
BCS 20$ ;BR IF SSR SET IN CHKTSSR 
+ RO,R1 sSAVE CONTENTS OF TSSR 
17$: ERRNO, TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CsERDE 
. WORD 302 
-WORD T12WRTSSR 
-WORD PKTSSR 
sVerify ea Get Stetus can be fetched from each address 
‘Get © valid sodule- 4 test address 
2 "Ger ia TUS command from os. test address 
508; Coa ace core Se Sas 
T12KT sTEST ABOVE 28K SWITCH 
vane. MOV @T12BLK ,R2 sPOINT TO TEST PATTERN TABLE 
CLR KTENABLE sTURN OFF ABOVE 28K TEST FLAG 
MOV (R2)-,R1 iGET TEST PATTERN ADDRESS 
CLR RO sASSUME NO TEST ABOVE 28K 
TST T12KT TEST ABOVE 28K THIS TIME? 
BEQ 3;BR IF NO 
MOV -2(R2),RO iGET TEST PATTERN AGAIN 
BIC $10<A1716>,RO SAVE 18 BIT ADDRESS ONLY 
#1, KTENABLE 


25%: 


MOV ’ sTURN ON ABOVE 28K TEST FLAG 
JSR PC, TI2CONVERT ;CONVERT TEST PATTERN TO TEST ADDRESS 


LO 


TSVS - HARDWARE 
TEST 3: SUBTEST 


TESTS 
1: GET 
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031276 
177774 


017334 
000000 
016376 


027720 


70$: 


100$; 


BCC 

MOV T12LOADD,.R4 
TI2HIADD ,R3 

JSR PC, TI2SETGET 

BIC ATM itty R3 

BIS RS 


SR PC ,CHKTSSR 
ORCERROR 

BCS 40% 

MOV RO,R1 

NEXT 


CKLOOP 

FORCEXIT 

CMP R2, OT12TBE 
BHIS 70% 

JMP T121L00P 
TST T12KT 

BGT 80$ 

TST KTFLG 

BEQ 80$ 

MOV $1,712K 
MOV OTi2BLK,R2 
JMP T121L00P 
JSR PC .KTOFF 
ENDSUB 


TST FATFLG 
100% 
PC, CKDROP 


SE@ 0115 
1 IF pany, a ADDRESS 
OPY CURRENT P T LOW ADDRESS 
;COPY CURRENT PACKET HIGH ADDRESS 
sSETUP CURRENT PACKET TO GET STATUS 
sSAVE ADDRESS BITS 17+16 
sSETUP 18 BIT PACKET ADDRESS 
3s TURN OFF KT-11 
sSET_ THE PACKET AQORESS TO EXECUTE 
sWAIT FOR SSR TO SE 
sBR IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 303 
-WORD T12GETSSR 
-WORD PKTGETS 
sLOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 


sDONE ALL TSTBLK TEST PATTERNS? 
sBR IF YES 

300 ANOTHER MODULO- 4 ADDRESS 

; DONE ABOVE 26K TESTING 100? 


ey IF YE 
ANY MEMORY ABOVE 28K ON SYSTEM? 
;BR IF NO 
sSET SWITCH 
tt TEST PATTERN TABLE 
ABOVE aux TESTING 
} TURN OFF KT11 
es V\ANNANANANAAAN wks nea NVANANANANAAAANN 


TRAP CsESUB 
sANY FATAL ERRORS ? 


sBRANCH IF NOT 
;TRY TO DROP THE UNIT 


.SBTTL TEST 3: SUBTEST 2: MESSAGE PACKETS TO SELECTED LOCATIONS 
; TEST 3: SUBTEST 2: 


SUBTEST DESCRIPTION: 


This subtest verifies the controller can deposit message packets 
to ell aveileble memory locations. 
trite Cheracteristics commands ere executed with me 


buffer addresses set to ver ious 
memory location. 


sses in each available 


The various addresses ore determined by floating a 1 then a 0 


through the eddress bit 


TEST STEPS: 


M9 


TSVS - HARDWARE TESTS 


005037 
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016034 


000000 
016376 


002222 
027724 


177774 
000003 


SEQ 0116 


BEGIN 
Write to TSSR to soft initialize 
Do a WRITE CHARACTERISTICS to setup a message buffer to compere 


a= SELECTED ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 
Get a Ry A a 4 test address 
Set t peck soge buffer to the TEST ADDRESS 
Do a “URI E CHARACTER STICS 
Restore the test message buffer to background pattern 


BGNSUB 344444444 464644 er ere 44444 AAASA 
"TRAP C$B8SUB 


J PC, SOFINIT ;D0 SOFT INIT OF CONTROLLER 
BCS 15$ ;8R IF SOFT INIT = OK 
NEXT . ERRNO 
MOV RO,R1 VE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG +S EVICE FATAL ERROR DURING apNIT “a 
THORD 304 
.WORD SFIERR 
:WORD SFIMSG 
{29 e WRITE CHARACTERISTICS to setup a message buffer to compare 
MOV @T12PACKET ,R4 :GET THE ADDRESS OF COMMAND PACKET 
JSR PC, TI2SWRT ;SET PACKET TO WRITE CHARACTERISTICS 
JSR PC. KTOFF sTURN OFF KT-11 
MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS 
PC, CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 17$ 
BCS 20% ;8R IF SSR SET IN CHKTSSR 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
17%: ERRDF ERRNO, TIQWRTSSR.PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 


. 305 
-WORD T1I2QWRTSSR 
-WORD PKTSSR 


eet © 2 waite —_ test address 
“Wrafe cna ents buffer to * che test address 
" wit CHARACTER STIcs 


ibe $: :CLEAR FATAL ERROR FLAG 
nov OTLOBLK, R3 ;POINT TO TEST PATTERN TABLE 
T122L.00P : 
Mov (R3)+,R1 :GET TEST PATTERN ADDRESS 
MOV 1 GET SS ALL "18 BITS” 
BIC $177774,RO sLEAVE ONLY Al? AND Al6 
BIC 63,R1 ;GET RID OF Al7 AND Al6 


N9 


TSVS - HARDWARE 


TEST 3: 


4681 


sSEtPSEEEES 


TESTS 
SUBTEST 
030726 


000000 
016376 


030056 
026504 
017334 


002222 
017242 


32%: 


160$: 
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JSR pC T12CONVERT 
BCS 253 

UMP 150$ 

MOV @T12PACKET ,R4 

JSR PC, T12SWRT 

MOV TI2LOADD, T12DATA 
MOV TI2HIADD,; T12DATA+2 
JSR PC,.KTOFF 

MOV R4; TSDBCRS) 

JSR C.CHKTSSR 
FORCERROR 32% 

BCS 50% 

MOV RO,R1 

NEXT. 

ERRDF ERRNO, T12WRTSSR,PKTSSR 
CKLOOP 

FORCEXIT 160$ 

CMP R3, OTL2TBE 

BHIS 160$ 

JMP T122L00P 

JSR PC. KTOFF 

ENDSUB 

TST FATFLG 

BEQ 180$ 


JSR PC, CKDROP 


sCONVERT TEST PATTERN TO TEST ADDRESS 
;BR IF VALID MESSAGE BUFFER ADDRESS 
3GET ANOTHER TEST oat a TO TRY 
3SET THE COMMAND PACKET ADDRESS 
;SETUP TI2PACKET TO WRITE CHAR. 
sSETUP LOW ORDER MESSAGE BUFFER ADD. 
+ SETUP HIGH ORDER MESSAGE BUFFER ADD. 
sTURN OFF KT-11 
iSET THE PA wer ADDRESS TO EXECUTE 
;WAIT FOR SSR TO SET 
;BR IF SSR SET IN O&TSSR 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 306 
~WORD T12WRTSSR 
. WORD PKTSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 
1: ® ALL TSTI2BLK TEST PATTERNS? 
;BR IF YES 
300 ANOTHER MODULO- 4 ADDRESS 
3s TURN OFF KT11 
#AAAAAAAAAAAAA — SUBTEST N\ANNNANANAANA 


* TRAP CsESUB 


1 OAANEH ae to ans ? 
;TRY TO DROP THE UNIT 


-SBTTL TEST 3: SUBTEST 3: CHARACTERISTIC DATA SELECTED LOCATIONS 
: TEST 3: SUBTEST 35: 


SUBTEST DESCRIPTION: 


This subtest verifies the controller can fetch e 
Write Cherecteristics dete block from ell eveai lable 


memory locetions. 


Write Cherecter istics commends ere quantied with 
cherecteristic dete blocks et verious 


The eer tous senery 
el then e 


TEST STEPS: 


BEGIN 
Write to TSSR to so** initialize 


y addresses. 
pewecece ere dsterained’ by floating 
0 through the eddress bits. 


SEQ 0117 


REPEAT FOR SELECTED VALID ADDRESSES IN DIAGNOSTIC FREE SPACE AND ABOVE 32K 


Biv 


TSVS - HARDWARE TESTS 


104402 


004737 
103405 


010001 
104455 
000463 
003654 
012074 
005037 
005037 
012703 
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016034 


027724 
003136 


177774 
000003 
027720 


177776 
177774 


017334 
000000 
016376 


003136 


BEGIN 
Get a valid test address . ' 
Set the test packet characteristics data pointer to the 
test address. 
Syty expected. © characteristic data in test address block 
e WRITE CHARACTERISTIC command 


BGNSUB 3444444444400 oe 44444644444 
"TRAP CsBSUB 


sWrite to TSSR to soft initialize 
JSR 


PC, SOF INIT 300 SOFT INIT OF CONTROLLER 
BCS 20% ;BR IF SOFT INIT = OK 
NEXT . ERRNO 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG sDEVICE FATAL ERROR DURING INIT 


* 


;Get a valid test address 


205: CLR FATFLG ;CLEAR FATAL ERROR FLAG 
CLR T12KT ;TEST ABOVE 28K SWITCH 
ice aaa $T12BLK,R3 ;POINT TO TEST PATTERN TABLE 
CLR KTENABLE ;TURN OFF ABOVE 28K TEST FLAG 
MOV (R3)+,R1 ;GET TEST PATTERN ADDRESS 
MOV R1,RO :GET ADDRESS ALL "18 BITS” 
BIC $177774,RO ;LEAVE ONLY Al? AND Al6 
BIC $3,R1 ;GET RID OF Al7 AND Al6 
TST T12KT sTEST ABOVE 28K THIS TIME? 
BEQ 25¢ | ;BR IF NO 
MOV -2(R GET TEST PATTERN AGAIN 
BIC orecaitioo RO ;SAVE 18 BIT ADDRESS ONLY 
MOV #1, KTENABLE ;TURN ON ABOVE 28K TEST FLAG 
254: JSR PC, TL2CONVERT }CONVERT TEST PATTERN TO TEST ADDRESS 
BCS 30$ 6R IF VALID TEST ADDRESS 
JMP 60$ ;GET NEXT TEST PATTERN 
scot the test packet cheracteristics data inter to the test address 
$: MOV OT1OPACKET ,.R4 :GET THE ADDRESS OF COMMAND PACKET 
JSR PC, T12SWRT ;RESTORE PACKET TO STARTING VALUES 
MOV T12LOADD , PKLOWC(R4) ;STORE CHAR. DATA pTR LOW ADDRESS 
MOV TI2HIADD , PKHI(R4 ) ;STORE CHAR. DATA PTR HIGH ADDRESS 
JSR PC,T1 STORE EXPECTED DATA IN DATA BLOCK 
;Do @ WRITE CHARACTERISTIC command 
JSR PC ,KTOFF sTURN OFF KT-11 
MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
PC, CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 32$ 
BCS 40$ ;8R IF SSR SET IN CHKTSSR 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 


SEQ 0118 


C10 
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4742 
4743 


104455 
000464 
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002222 
017242 


32%: 


40$: 
60$: 


65$: 


70$: 


75$: 


NEXT . ERRNO 
ERRDF ERRNO,TI2WRTSSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP C$ERDF 
308 
T12WRTSSR 
.WORD PKTSSR 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 
CMP R3,@T12TBE sDONE ALL TSTBLK TEST PATTERNS? 
BHIS 65$ ;BR IF YES 
JMP T123L00P 3D0 ANOTHER MODULO- 4 ADDRESS 
TST T12KT sDONE ABOVE 28K TESTING TOO? 
BGT 70$ ;BR IF YES 
TST KTFLG ;ANY MEMORY ABOVE 28K ON SYSTEM? 
BEQ 70$ ;BR 
MOV $1,T12KT :SET SWITCH 
MOV $T12BLK ,R3 sRESET TEST ag tn TABLE 
JMP 123L :0D0 ABOVE ox,’ ESTING 
JSR PC ,KTOFF sTURN OFF KT11 
ENDSUB SA AANARANNNARE END SUBTEST \\\\NNN\ANAN 
L10045: 
TRAP CsESUB 
TST FATFLG ;ANY FATAL a ? 
BEQ 75$ ;BRANCH IF 


JSR PC, CKDROP TRY TO DROP THE UNIT 


-SBTTL TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


; TEST 3: SUBTEST 4: 


SUBTEST DESCRIPTION: 


me subtest verifies the NXM error bit in the TSSR 

ister is set when attempting to fetch data (a characteristic 
da e@ block) from selected nonexistent locations. 
If NXM fails to set it is likely that en LSI-11 Bus driver is 
failing to assert an address line. 
Addresses tested include all combinations of high-order address 
bits (i.e bits 16-21). 
ennneeenecaminaninaie -~ ; * ~ rctinunibecpieemerme tebe 


The LSI BUS drivers for all available address lines( 16-21) 
are only checked when running on a 11/238 system with more than 
128K words of memory! 
SSESCSSSSSSSSSSSSSSSSSSSSSSSSSKSSRSSSEE SESS SSESSES SESS SSE SES ESSE EEE EEEE 


TEST STEPS: 
BEGIN 


Write to TSSR to soft initialize 
Do a write characteristic command 
Invert the extended features switch 


REPEAT FOR SELECTED NON-EXISTENT MEMORY ADDRESSES 


SE@ 0119 


TSVS - HARDWARE TESTS 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


4836 
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003146 
002120 
027576 
003140 
027576 


016034 


027650 
031230 
003136 


000000 
016376 


007777 


5$: 


10$: 


END 

BGNSUB 

TST T23A 

BEQ $ 

CMP L$HIME , #7777 

BLO 

JMP NOEXTF 

TST NXMFLG 

BNE 10$ 

JMP NOEXTF 
sWrite to TSSR to soft initialize 

JSR PC,SOFINIT 

BCS 11$ 

NEXT. 

MOV RO,R1 


BEGIN 


ERRDF ERRNO,SFIERR,SFIMSG 


SEQ 0120 


Get an invalid test address 
Set the test packet characteristics data pointer to the 


test address. 
Do a WRITE CHARACTERISTIC command 
If TSSR register NXM bit not set then print error message 


SAISIIITTSSS A BEGIN SUBTEST VUMMhhshthts 
"TRAP csBsuB 


326-APR-83 REV B - CHK FOR 23A CPU 
;26-APR-83 REV B - BR, IF NOT 23A 
326-APR-83 REV B - CHK FOR > 256KB 
326-APR-83 REV B - BR, IF < 256KB 
326-APR-83 REV B - JUMP OVER 2 

T Y? 


3GOT ENOUGH 
3IF SET STAY 
sLEAVE IF NOT SET 


s00 SOFT INIT OF CONTROLLER 
;B8R IF SOFT INIT = OK 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL ERROR ae ee" 


sDo ea WRITE CHARACTERISTIC command so to invert switch 


11$: 


15%: 


17$: 


CKLOOP 


. ERRNO 
ERROF ERRNO, T12WRTSSR,PKTSSR 


CKLOOP 


@T12PACKET ,R4 
“" T12SWRT 


R4, TSOBCRS) 
CHKTSSR 


cs 
-WORD 309 
-WORD SFIERR 
-WORD  SFIMSG 
sLOOP IF SELECTED 
TRAP CsCLPl 
sGET THE ADDRESS OF C PACKET 


OMMAND 
sRESTORE a HH TO STARTING VALUES 
sTURN OFF KT-11 

sSET_THE PACKET ADORESS 

sWAIT FOR SSR TO SET 


;B8R IF SSR SET IN CHKTSSR 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 


sLOOP IF SELECTED 
TRAP CsCLPi 


E10 


TSVS - HARDWARE 
TEST 3: SUBTEST 
4837 027322 


4638 
4839 
4840 


TESTS 


004737 


005037 


013737 
013737 


104410 
000124 
016501 


032701 
001012 


013737 
013737 
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020504 


027712 
027714 


017334 
000000 
016310 


002222 


000002 
004000 


027714 
027712 


002242 
002240 


003146 


JSR PC, INVERT 
:Get an invalid test address 
sof: CLR FATFLG 
‘ MOV NXMHI , TL2HIADD 
MOV NXMLO, T12LOADD 
T124L00P: 


;Set the test packet cheracteristics data pointer to the 


; test eddress. 


30$: MOV OT12PACKET ,R4 
JSR PC, T12SWRT 
MOV SLOADD , PKLOWCR4) 
MOV TI2HIADOD . PKHI(R4 ) 

:Do ea WRITE CHARACTERISTIC command 
JSR ,KTOFF 
MOV R4, TSDBCRS) 
JSR PC, WAITF 
BCS 40$ 
MOV RO,R1 
NEXT. 

32$: ERRDF ERRNO, T12WRTSSR,PKTSSR 
INC FATFLG 

40$: CKLOOP 
FORCERROR 45$,NOTSSR 
ESCAPE SUB 


MOV TSSR(RS),R1 

F $23 

BIT ONXM,R1 

BNE 60% 

NEXT. 
52¢: MOV T12LOADD,,ERRLO 

MOV T12HIADD, ERRHI 

, TL2NXM, ADDSSR 

60%:  CKLOOP 

FORCEXIT 90% 

TST‘ T23A 


it TSSR register NXM bit not set then print error message 


SE@ 0121 
sINVERT THE SWITCH 
sCLEAR FATAL ERROR FLAG 
sSAVE TEST ADDRESS HIGH 
sSAVE TEST ADDRESS LOW 
;GET THE ADDRESS OF COMMAND PACKET 
sRESTORE PACKET TO STARTING VALUES 
STORE CHAR. DATA PTR LOW ADDRESS 
sSTORE CHAR. DATA PTR HIGH ADDRESS 
4+ ak ov KT-11 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT "FOR SSR TO SET 
;BR IF SSR SET IN Garser 
sSAVE CONTENTS OF T 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD 11 
.WORD T1I2WRTSSR 
-WORD PKTSSR 
eh FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG ser 
CSCLP1 
;BY-PASS SUBTEST IF FATAL ERROR 
TRAP CSESCAPE 
-WORD L10046-. 
sGET TSSR CONTENTS 
3sNXM SET? 
3;8R IF YES 
sMEMORY TEST ADDRESS LOW 
sMEMORY TEST ADDRESS HIGH 
sREPORT ADDRESS AND TSSR ERROR 
TRAP CSERHRD 
-WORD 312 
-WORD T12NXM 
-WORD ADDSSR 
;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLPl 


sIS IT A 11/23A? 


F10 


TSVS - HARDWARE 
TEST 3: SUBTEST 


saat 027550 


4936 027724 


TESTS 
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000000 
000010 
027672 
000000 
000016 
000000 


027712 
000077 
027712 
027346 


017334 


002222 


017242 
016516 


026036 


017334 
003152 


65$: INC 


JSR 
100$: JSR 
BCC 


105$: 


eS 


EXIT 


| iad 
sLOCAL STORAGE FOR THIS TEST 
g°< 


Ta2PAcKet: 


T12DATA; 


T1 " 
T124TST: 
t iad 


CH HiT: 


553 


90$ 
T12HIADD RO 
RO, 077 

90$ 

RO, TL2HIADD 
T124L00P 


PC ,KTOFF 


FATFLG 
100$ 

PC, CKDROP 
PC’ TSTLOOP 
105$ 
T12L00P 

PC ,KTOFF 


T3BFLG 
TST 


-©10>€177770 


00004 
T12DATA 


}TABLE OF ADDRESSES 


$12BLK: .WORD 000001 


. 
sSETUP NEW HIGH ORDER ADDRESS 
300 ANOTHER NON-EXISTENT ADORESS 


sTURN OFF KT11 
sN\ANNANANANANN END SUBTEST \ANANANANAN 
L10046: 


TRAP CsESUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
; TRY TO DROP THE UNIT 
sSHOULD WE DO ITERATIONS? 


;BR IF NO 
;LOOP UNTIL ITERATION COUNT DONE 


sTURN OFF MEMORY MANAGEMENT 

sCLEAR TEST FLAG 

sALL DONE THIS TEST 
TRAP CsExIT 
-WORD L10042-. 


sCOMMAND PACKET FOR TEST 
sWRITE CHARACTERISTICS COMMAND, WITH ACK 
;ADDRESS OF CHARACTERISTICS BLOCK 


sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 
; oN oe OF MESSAGE BUFFER 


sHIGH ORDER OF MESSAGE BUFFER 
;LENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sADDRESS TEST BIT 


SE@ 0122 


TSVS - HARDWARE 
TEST 3: SUBTEST 


TESTS 
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SSSSSESIESUSSISSSSSSESSESSESSSSUSSOSSOSESSES 


T1I2TBE: 


SEQ 0123 


177777 


3° 
sLOCAL TEXT MESSAGES FOR TEST 


¥ST3270) 
TI2GET©"R: 


T12NXM: 


‘DMA Memory Addressing’ 

‘Contents of Lt Incorrect After GET STATUS’ 

‘Contents of TSSR Incorrect After WRITE CHARACTERISTICS’ 

‘Message Buffer Contents Incorrect After WRITE CHARACTERISTICS’ 
‘Background Pattern Disturbed By pag | CHARACTERISTICS‘ 

‘Expected Interrupt Not Received On WRITE CHARACTERISTICS’ 

‘Write Cheracter istic data in ram does not match expected’ 

‘TSSR NXM bit failed to set when non-existent memory address specifi 


H10 


TSVS - HARDWARE TESTS 


031076 
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027714 
027712 
027716 
170000 
017334 
003126 
000020 
000003 
003132 
000020 
027714 
027716 
003126 


003136 
000020 


003136 
003134 
017316 
027712 
017356 


; ROUTINE TO oes Se 
DIAGNO 


- EVEN 


INPUTS: 


; 
; 

; 

; 

; 

; 

; 

; 

; 

s OUPTUTS: 
; 

; 

; 

3 

; 

i 


RO 
Ri 


TEST PATTERN TO A VALID ADDRESS IN DIAGNOSTIC FREE SPACE 
A or The aoennt Is a THE END OF THE DIAGNOSTIC AND THE 


HIS IS ALWAYS BELOW 24K. 


ISOR. 
MEMORY ABOVE 28K SPECIFIED (VIA R1) THEN PAR 6 IS SET 
TO THE RELOCATION BASE. 


HIGH ORDER ADDRESS BITS 
LOW ORDER ADDRESS BITS 


T12PARG = ADDRESS BIASED TO PAR6 IF . UNDER TEST 
HIGH ORDER ADDRE FORMAT 


T12HIADD = S IN NON PAR 
T12LOADD = LOW ORDER ADDRESS IN NON PARE’ FORMAT 
C BIT = 1 IF GOOD ADDRESS RETURNE! 
C BIT = 0 IF TEST PATTERN DID NOT YIELD A VALID ADDRESS 
12CONVERT: 
SAVREG :SAVE R1-RS UNTIL NEXT RETURN 
CLR T12LOADD ;CLEAR LOW ADDRESS 
CLR T12HIADD ;CLEAR HIGH ADDRESS 
CLR T12PAR6 CLEAR PAR6 BIASED 
BIC OtC<7777>,R1 sFORCE TO LOWER 12 BITS OF ADDRESS 
MOV oRS ;SAVE HI R ADDRESS BITS 
JSR PC KTOFF } 
MOV FREE ,R2 :GET F FREE ADDRESS 
ADD #16. .R2 ;IN CASE TEST PATTERN=0 
ADD R1,R2 ;ADD IN TEST PATTERN 
BIC 3'R2 ;MAKE IT MODULO-4 
25$: MOV FREEHI ,R3 ;GET LAST FREE ADDRESS 
SUB 16. ,R3 }SAVE AT LEAST 8 WORDS CIN CASE MESSAGE BUFFER) 
MOV R2, Ti 2LOADD SA SSIBLE LOW ADDRESS 
MOV R2. T12PAR6 ;SAVE IT IN PAR6 BIASED TOO 
CMP R2.R3 :1S THIS ADDRESS ABOVE FREE SPACE? 
BHI 35$ ;8R IF YES 
CMP R2, FREE IS IT IN FREE SPACE? 
BHIS ; 38R IF YES- ITS GOOD 
TST TENABLE TESTING ABOVE 28K? 
BNE $ ;BR IF YES 
BR $ :BR IF NOT IN FREE SPACE 
35$: SUB $16. ,R2 }FORCE FIT THE TEST PATTERN 
maid BR 5$ ;TRY THIS TEST PATTERN ADDRESS 
TST KTENABLE TESTING ABOVE 28K? 
BEQ 100$ :BR IF 
TST KTFLG ;ANY MEMORY ABOVE 28K? 
BEQ 90% i8R IF NO 
JSR PC,KTON ;TURN ON MEMORY MANAGEMENT 
MOV *RO :GET HIGH ORDER ADDRESS 
MOV RO. TI2HIADD {SAVE POSSIBLE HIGH ADDRESS 
MOV *R1 :GET COMPUTED LOW ORDER ADDRESS 
JSR * SETMAP RETURN PAR6 BIASED ADDRESS IN RO 


SEQ 0124 


110 


TSVS - HARDWARE TESTS 


TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


S051 031102 
03 


5107 031220 


010037 027716 
103403 


000241 90$: 
000401 

000261 100% 
000207 105% 
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RO, TI2PAR6 
105$ 


105$ 
PC 


;COPY PAR6 BIASED ADDRESS 
VALID ADDRESS 

;CLR C BIT FOR FAILURE 

; 

SET SUCCESS 

RETURN 


sROUTINE TO READ THE FIRST 2 BYTES FROM RAM 


MEMORY AND COMPARE THIS DATA TO A 
INPUT: 


012701 002244 
012702 000201 
005003 


004737 016376 
000000 

016376 10$: 

000000 

016376 

000000 


005202 
020227 000203 


261 30$: 
012737 000002 002304 50$: 


R4 
RS 


CARRY 


SIDE EFFECTS: 


SET - RAM MATCHES PACKET 


COMMAND PACKET. 


ADDRESS OF THE COMMAND ny 
FIRST DEVICE UNIBUS ADDRESS 


CLR - RAM DOES NOT MATCH PACKET 
sIMPLICIT OUTPUT: 
THE TABLE he IS FILLED WITH THE 


DATA HELD IN 
RAMSIZ SET 10 D “FOR PRAMPKT ROUTINE 


THE SUBSYS'®™ IS LEFT IN MAINTENANCE MODE 


sSAVE THE GENERAL REGISTERS 

TO SAVE THE RAM DATA 

sBYTE ADDRESS OF FIRST RAM DATA 
ERROR FLAG 


ADDRE 
sDONE 2 
BR IF 


sSHOW GOOD COMP 
sSETUP RAMSIZ 


SEQ 0125 


J10 
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SEQ 0126 
TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 
gice 031226 000207 RTS PC ;RETURN 
5110 3° 
$111 3 
gilts sROUTINE TO SETUP PACKET TO WRITE CHARACTERISTICS 
‘- 
5114 
5115 031230 T12SWRT: 
5116 031230 SAVREG sSAVE THE REGISTERS 
5117 031234 012701 027650 MOV @T12PACKET, "a ISTAR T OF THE PACKET 
5118 031240 012721 100004 MOV #100004, (Ri)- sWRITE CHARACTERISTICS WITH ACK 
5119 031244 012721 027660 MOV OT12DATA, CR1)- ;ADDRESS OF CHAR DATA BLOCK 
5120 031250 005021 CLR (R1)- sEXTENDED ADDRESS 
5121 031252 012721 000010 MOV $8. ,C(R1)-< ;SIZE OF DATA BLOCK IN BYTES 
Sl22 031256 012721 027672 MOV OTi2BFR,(R1)- sADDRESS OF MESSAGE BUFFER 
5123 031262 005021 CLR (R1)- 
5124 031264 012721 000016 MOV #14. ,(R1)- sLENGTH OF MESSAGE BUFFER 
5125 031270 005021 CLR (R1)- 
5126 031272 005011 CLR (R1) 
$127 031274 000207 RTS PC sRETURN 
8 
aise ;ROUTINE TO SETUP A GET STATUS COMMAND PACKET AT CURRENT PACKET ADDRESS 
3 
5132 ; - HIGH ORDER a ADDRESS 
5133 3 LOW ORDER PACKET ADDRESS 
aise : NOTE: R3 IS IGNORED IF KTENABLE FLAG CLEAR 
3 
5136 3- 
5137 
5138 031276 TI2SETGET: 
5139 031276 SAVREG ;SAVE THE REGISTERS 
5140 031302 010401 MOV R4,R1 ;GET LOW ORDER ADDRE 
5141 031304 005737 003136 TST KTENABLE sTESTING ABOVE 28K? 
5142 031310 001404 BEQ 10$ ;68R IF NO 
5143 031312 010300 MOV R3,RO ;GET HIGH ORDER ADDRESS 
5144 031314 004737 017356 JSR ox. SE THER sRETURN ADDRESS BIASED TO PAR6 IN RO 
5145 031320 010001 MOV Ri iGET ADDRESS 
5146 031322 012700 000017 10$: MOV oP 'GETSTATUS,RO ;GET STATUS COMMAND CODE NO IE 
5147 031326 052700 100000 BIS oP . ACK ,RO 3;SET 
5148 031332 010021 MOV RO.(R13- i STORE GET STATUS IN PACKET 
5149 031334 005021 CLR (R1)- sCLEAR UNUSED WORD 
3130 031336 000207 RTS PC ;RETURN 
5152 
8 
giae 8 INE TO SETUP A ACTERISTIC DATA BLOCK AT A TEST ss 
8 
5157 .- 
5158 031340 12CHAR: 
5159 031340 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
5160 031344 012700 027660 MOV @T12DATA,RO 3GET TL2PACKET DATA POINTER 
5161 031350 013701 027714 MOV T12LOADD,R1 sASSUME NOT ABOVE 28K 
5162 031354 005737 003136 TST KTENABLE sTESTING ABOVE 28K? 
5163 031360 001402 BEQ 10$ 3;68R IF NO 
5164 031362 013701 027716 MOV T12PAR6,R1 ;SET TEST ADDRESS ABOVE 28K 


: SUBTEST 


TESTS 
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4: NXM TO SELECTED INVALID ADDRESSES 


104401 


10$: MOV CRO)+,CR1)- sSTORE DATA 
MOV CRO)+,CR1)- sSTORE DATA 
MOV CRO)+,CR1 D+ sSTORE DATA 
MOV (RO)+,(R1)+ sSTORE DATA 
MOV CRO)+,CR1)- sSTORE DATA 
RTS PC RETURN 
ENDTST 


L10042: 


TRAP 


CSETST 


SEQ 0127 


L10O 


TSVS - HARDWARE TESTS 


012737 
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TEST 3: SUBTEST 4: NXM TO SELECTED INVALID ADDRESSES 


032760 
010662 


-SBTTL TEST 4: RAM EXERCISER TEST 


; 
sTHIS TEST USES THE READ AND WRITE RAM (BOTH SINGLE AND 256 


sLOCATIONS) SELECT CODES OF THE WRITE SUBSYSTEM MEMORY 
310 EXERCISE THE CONTROLLER'S RAM MEMORY LOGIC 


ef @GNTST 


TSTCNT 

10$ 

SKIPT 

@TST1SID,RO 

PC, TSTSETUP 
OOPCNT 


sTEST 4, SUBTEST 1 


; THIS SUBTEST WRITES THE ADDRESS 
; RAM MEMORY SINGLE WORD (8 BITS) 
3 
e BGNSUB 

SETPRI #PRIOO 

TST SKIPT 

BEQ 10$ 

MP 50$ 
10$: JSR PC, TISREST 

JSR PC. TISRT2 

JSR PC. SOF INIT 

BCS 20% 

MOV RO,R1 

ERROF ERRNO, SFIERR,SFIMSG 
20%: 

MOV STISPACKET, R4 

JSR PC, WRTCHR 

BCs 23 si 

ERRHRD ERAND , URTHSG.. SFIMSG 


COMMAND 
AND DMA 
T4:: 
;CHECK F RUN 
;BR, IF NOT ONLY PROGRAM RUN 
3SET SKIP SW 
sASCII MES TO IDENTIFY TEST 
300 INITIAL TEST SETUP 
sPERFORM 5 ITERATIONS 
(8 BITS) INTO THE 
MODE 
WILLA mS see SUMMtbhhhshsds 
Cs6SUB 
sLOWER PRIORITY TO aLLow TNTERRUS TS 
MOV @PRIOO,RO 
RAP Cs#SPRI 
sSHOULD WE SKIP THIS suBTEST 
;BR, IF NOW SKIP REQUIRED 
sSKiP TEST 
3 
sSET UP OTHER COMMAND PACKET 
300 INITIALIZE ON CONTROLLER 
:8R IF INIT WAS OK 
sCONTENTS OF TSSR REGISTER 
sFATAL ERROR TSSR WAS NOT OK 
TRAP CSEROF 
-WORD 401 
. WORD SFIERR 
. WORD SF IMSG 
sSUBROUTINE NEEDS PACKET ADDRE 
sISSUE WRITE CHARACTERISTICS 
;BR, COMMAND ISSUED OK 
sSAVE CONTENTS OF TSSR 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
- WORD 
.WORD WRTMSG 
.» WORD SF IMSG 


SEQ 0128 


M10 
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SEQ 0129 
TEST 4: RAM EXERCISER TEST 


5228 031532 012703 000400 : MOV $256. ,R3 1STARTING | ADDRESS FOR RAM WRITE 
5229 031536 112737 000001 033471 MOVB 1,715851 :SIZE OF TRANSFER 
3230 0315344 112737 000002 033470 ae MOVB #2,715850 ;WRITE RAM “COMMAND” 
3232 031552 010337 033472 MOV 715S2 sADDRESS FOR RAM 
5233 031556 012704 03 MOV BTispice R4 ;WRITE SUBSYS MEM PACKET 
34 031 110337 033474 MOVB RB, 71553 sDATA FOR WRITE (ADDRESS) 
5235 031 010465 000000 MOV Ra: TSDBCRS) ; OMMAND 
36 031572 004737 016376 JSR * CHKTS ‘WATT FOR SSR 
5237 031576 103407 BCS $ IF NO 
5238 031600 010001 MOV RO,R1 1eRROR, SAVE TSSR 
031602 ERRHRD ERRNO, T1SSSR,PKTSSR ;TSSR NOT CORRECT AFTER WRITE SuB MEM 
031602 104456 C$ERHRD 
031604 00062 THORD 3 
031606 033476 "WORD  T15SSR 
031610 012106 PKTSSR 
5243 031612 ESCAPE SUB ;DON'T CONTINUE IF ERROR’ ON 
031612 104410 AP ss CSE SCAPE 
031614 000122 WORD 110050-. 
5244 031616 30$: CKLOOP :SCOPE LOOP 
031616 104406 TRAP = C$CLP1 
5245 
5246 
5247 031620 INC 3 NEXT ADDRESS 
5248 031622 7 010000 CMP R3, #10000 OF RAM MEMORY CHECK 
5249 031626 001351 BNE 253 }LOOP TILL ALL RAM WRITTEN 
5250 031630 CLR 2 ;CLEAR OUT R2 HIGH BITS 
5251 031632 30 DEC 3 3SET BACK TO 7777 
5252 031634 110337 033474 40$: MOVB R3,715S3 ;GET DATA PATTERN BACK IN SHAPE 
5253 031640 010337 033472 MOV R3.71552 sADDRESS FOR RAM READ 
5254 031644 112737 000001 033470 MOVB #1,7158S0 ;READ RAM COMMAND 
5255 031652 010465 000000 MOV R4,TSOB(RS) :SEND OUT PACKET ADDRESS TO CONTR. 
5256 031656 004737 016376 JSR PC. CHKTSSR WAIT FOR READY, NON-AMBIGUOUS 
5257 031662 103405 BCS 433 ;8R, IF NO PROBLEM 
5258 031664 010001 MOV RO,R1 sSAVE TSSR 
5262 031666 ERRNO, TISSSR,PKTSSR sTSSR NOT CORRECT 
031666 104455 TRAP  C$ERDF 
031670 00062 .WORD 404 
031672 033476 "WORD TiSSSR 
031674 012106 "WORD PKTSSR 
5263 031676 43$: CKLOOP sSCOPE LOOP 
031676 1 TRAP = C$CLP1 
5264 031700 013701 033022 MOV T1SBFR+20,R1 :GET RAM READ DATA 
5265 031704 010 MOV R3,R2 :SET UP FOR COMPARE 
031706 120102 C R1.R2 sCHECK WITH DATA WRITTEN 
5267 031710 001 BEQ 45 ;8R IF OK, DATA IN = DATA OUT 
5271 031712 ERRNO, T15AM4,EXPBREC ; WRITTEN bata NOT = TO READ 
031712 104456 C$ERHRD 
031714 000625 .WORD 405 
031716 033755 "WORD T15AM4 
031720 015542 [WORD €XPBREC 
5272 031722 45$: CKLOOP sSCOPE LOOP 
031722 104406 C$CLP1 
5273 031724 005303 DEC R3 ;OROP DATA COUNTER (PATTERN) 
5274 031726 020327 000377 CMP R3, 0255. iAT BOTTOM ¥ YET 
75 031732 001340 BNE 403 MORE TO CHECK 
5276 031734 50$: CKLOOP eC OPE L 


N10 


TSVS - HARDWARE TESTS 
TEST 4: RAM EXERCISER TEST 
031734 104406 
S277 031736 
031736 
104403 


104402 


004737 034062 
034134 
016034 


032760 
010662 


S302 032002 
5306 032004 
5307 032006 


112737 000001 
033460 
000400 


000002 
033474 
033472 
000000 


016376 


033471 


033470 
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BGNSUB 


TEST 4, SUBTEST 2 


25%: 


30%: 


33%: 


THIS SUBTEST WRITES RAM WITH ALL te oy 
WORD DOWN THROUGH 


THEN WALKS AN ALL ONES 


JSR PC, TISREST 
JSR PC, TISRTO 

JSR PC, SOF INIT 

hoy svi 

ERRDF ERRNO, SFIERR,SFIMSG 
MOV OTISPACKET ,R4 

JSR PC ,WRTCHR 

roy Baim 

ERRHRD ERRNO,WRTMSG, SFIMSG 
MOVB ¢1 7158S1 
a 

rie feaniseeo 

MOV RS Ti5 

MOV R4.TS0B(RS) 

JSR PC. CHKT 

ERRHRD ERAND, 15SSR PKTSSR 
CKLOOP 


TRAP C$CLP1 
sNAAANAANANANS END SUBTEST NANNANAANAANS 
L10050: 

TRAP CsESUB 


344444744 446467474 er are SAAAAASSLASSAS 
"TRAP CsBSUB 


MEMORY 
sRESTORE PACKET FOR WRITE CHARA 


sRESTORE PACKET FOR WRT SUB SYS MEM 

s00 INITIALIZE ON C OLLER 

sBR IF INIT WAS OK 

sCONTENTS OF TSSR REGISTER 

;FATAL ERROR TSSR WAS | a. 

CSERDF 

"Horo 406 
-WORD SFIERR 
-WORD SFIMSG 


sSUBROUTINE NEEDS PACKET ADDRESS 
i Issue WRITE CHARACTERISTICS 
IF COMMAND JSSLED OK 


i SAVE CONTENTS OF TSSR 
;sWRITE CHARACTERISTISC FAILED 
CoERND 
-WORD  WRTMSG 
-WORD SFIMSG 
;SET SIZE OF TRANSFER 1 BYTE 
sSET NEW PACKET ADDRESS 
sSTARTING ADDRESS IN RAM 
s;WRITE RAM —— 
’ DATA T 
sADDRESS TO P DATA AREA 
8 QuT Ss 
sWAIT FOR 
s6R, 4 NO PROBLEM 
8 
ret] NOT CORRECT 
TRAP cegwee 
. WORD 
on T15SSR 
‘ PKTSSR 
3SCOPE LOOP 
TRAP CSCLPi 


SEQ 0130 


Bii 
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TEST 4: RAM EXERCISER TEST 


SEQ 0131 


5325 

5326 032100 005203 INC R3 ;NEXT ADDRESS 

5327 032102 020327 010000 CMP R3, #10000 ;END OF RAM MEMORY CHECK 

5328 032106 001357 BNE 30 BR MORE RAM TO GO 

5329 032110 005303 35$: DE R3 SET BACK TO 7777 

5330 032112 005002 40$: CLR R2 eet TO ALL ZEROS 

5331 032114 112737 000001 033470 MOVB  #1,T158S0 }READ RAN COMMAND 

5332 032122 010337 033472 MOV R3.715S2 ;ADDRESS TO BE READ TO PACKET DATA 

5333 032126 010465 000000 MOV R4; TSDBCRS) ;SEND OUT PACKET ADDRESS 

5334 032132 004737 016376 JSR PC; CHKTSSR WAIT FOR SSR TO SET 

5335 032136 103405 BCS 4i$ ;BR, IF ALL IS WELL 

5336 032140 010001 MOV RO,R1 ;SAVE TSSR 

5340 032142 ERRHRD ERRNO,TISSSR,PKTSSR ;TSSR NOT CORRECT 
032142 104456 TRAP = C$ERHRD 
032144 000631 .WORD 409 
032146 033476 "WORD T1SSSR 
032150 012106 "WORD PKTSSR 

5341 032152 41$: CKLOOP :SCOPE LOOP 
032152 104406 TRAP  C$CLP1 

5342 032154 013701 033022 MOV TISBFR+20,R1 ;PICK UP READ DATA 

5343 032160 120102 CMPB = R1,R2 ;BOTH SHOULD BE 00000000 BINARY 

5344 032162 001404 BEQ 423 ;BR, IF DATA IS GOOD 

5348 032164 ERRHRD ERRNO, T1SAM3,EXPRREC ;CHARACTERISTICS DATA NOT CORRECT 
032164 104456 TRAP  C$ERHRD 
032166 000632 .WORD 410 
032170 033653 "WwORD T1S5AM3 
032172 015542 "WORD €XPBREC 

5349 032174 42$: CKLOOP ;SCOPE LOOPER 
032174 104406 TRAP © C$CLP1 

5359 032176 012702 000377 MOV #000377 ,R2 :SET ALL ONES WORD 

5351 032202 112737 000002 033470 MOVB  2,T15B8S0 ;WRITE RAM COMMAND 

5352 032210 112737 000377 033474 MOVB § #000377,115S3 ;ALL ONES PATTERN 

5353 032216 010465 000000 MOV R4, TSDBCRS) ;PASS PACKET ADDRESS TO CONTR. 

5354 032222 004737 016376 JSR PC; CHKTSSR ;WAIT FOR SSR 

5355 032226 103405 BCS 433 :BR, IF OK (NO ERROR) 

5356 032230 010001 MOV R1 ;SAVE TSSR 

360 032232 ERRHRD ERAND, TISSSR,PKTSSR ;TSSR NOT CORRECT 
032232 104456 TRAP = C$ERHRD 
032234 33 .WORD 411 
032236 033476 "WORD T15SSR 

012106 "WORD PKTSSR 

5361 032242 434: CKLOOP sSCOPE LOOP 
032242 104406 TRAP = C$CLP1 

5362 032244 112737 000001 033470 MOVB #1, T158S0 ;SET UP FOR RAM READ 

5363 032252 010465 000000 MOV R4.TSDBCRS) ;ISSUE RAM READ 

5364 032256 004737 016376 JSR PC; CHKTSSR ;WAIT FOR SSR TO SET 

5365 032262 103405 BCS 443 ;BR, IF OK (NO ERROR) 

5366 032264 010001 MOV RO,R1 ;SAVE TSSR 

5370 032266 ERRDF ERRNO, T1SSSR,PKTSSR ;TSSR NOT CORRECT 
032 104455 TRAP C$ERDF 
032270 .WORD 412 
032272 033476 "WORD T15SSR 
032274 012106 ‘WORD PKTSSR 

5371 032276 013701 033022 443: MOV TISBFR+20,R1 ;PICK UP REC'D DATA 

5372 032302 120102 CMPB ss R21, R2 ;CHECK WITH DATA WRITTEN 

5373 032304 001404 BEQ 453 ;8R IF OK, DATA IN = DATA OUT 

5377 032306 ERRHRD ERRNO, T1SAM2,EXPBREC ;WRITTEN DATA NOT = TO READ 
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r) 
TEST 4: RAM EXERCISER TEST SEQ 0132 


032306 104456 TRAP C$ERHRD 
032310 000635 -WORD 413 
12 033552 -WORD T1SAM2 
032314 015542 -WORD EXPBREC 
5378 032316 4S$: CKLOOP sSCOPE LOOP 
032316 104406 RAP C$CLP1 
5379 032320 005303 DEC R3 sDROP RAM ADDRESS POINTER 
5380 032322 020327 000377 CMP R3,9255. FAT START YET 
sees 032326 001271 BNE 40$ ;BR, IF MORE RAM TO CHECK 
5383 032330 ENDSUB sp \ANNANAANAANANN END SUBTEST \ANNANAAAAANAN 
032330 L10051: 
_— 032330 104403 TRAP Cs$ESUB 
5385 032332 BGNSUB 3//////////// BEGIN SUBTEST S/////////7/7/ 
032332 14.3: 
032332 104402 TRAP C$BSUB 
5386 3° 
5387 : 
5388 ;TEST 4, SUBTEST 3 
5389 : 
5390 ; 
5391 3 THIS SUBTEST WRITES RAM WITH ALL ONES 
Seo8 3 THEN WALKS AN ALL ZEROS WORD DOWN THROUGH MEMORY 
H 
5394 032334 005737 003402 TST SKIPT sCHECK RUN MODE 
5395 032340 001402 BEQ 10$ 368R, IF NO SKIP 
5396 032342 000137 032736 JMP 50$ sSKIP SUBTEST 
5397 032346 004737 034062 10$: JSR PC, TISREST sRESTORE PACKET FOR WRITE CHARA 
5398 032352 004737 034134 JSR PC,T1ISRT2 sRESTORE PACKET FOR WRT SUB SYS MEM 
5399 032356 004737 016034 JSR PC,SOFINIT :D0 INITIALIZE ON CONTROLLER 
5400 032362 103405 BCS 206 ;6R IF INIT WAS OK 
5404 032364 010001 MOV sCONTENTS OF TSSR REGISTER 
5405 032366 ERROF ERAND, SFIERR , SFIMSG sFATAL ERROR TSSR WAS NOT OK 
032366 104455 TRAP CSERDF 
032370 000636 -WORD 414 
032372 003654 -WORD SFIERR 
032374 012074 -WORD SFIMSG 
5406 032376 20$: 
5407 032376 012704 032760 MOV ST1ISPACKET ,R4 sSUBROUTINE NEEDS PACKET ADDRESS 
5408 032402 004737 010662 JSR PC,WRTCHR saaSUE WRITE CHARACTERISTICS 
5409 032406 103405 BCS 253 IF COMMAND ISSUED OK 
5413 032410 010001 MOV RO,R1 i SAVE CONTENTS OF TSSR 
5414 032412 ERRHRD ERRNO,WRTMSG,SFIMSG sWRITE CHARACTERISTISC es 
032412 104456 CSERHRD 
032414 000637 "TORO 415 
032416 005060 -WORD WRTMSG 
032420 012074 -WORD SFIMSG 
5415 032422 25%: 
$416 032422 112737 000001 033471 MOVB iF T158S1 3SET SIZE TO 1 BYTE 
$417 032430 012704 033460 MOV oTiSPK2, R4 ;SET NEW PACKET ADDRESS 
5418 032434 012703 000400 MOV $256. ,R3 sSTARTING ADDRESS IN RAM 
5419 032440 112737 000002 033470 MOVB $2 Ti5BS0 sWRITE RAM CONAND 
5420 032446 112737 000377 033474 MOVB $377,115S3 sSET DATA TO 377 
5421 032454 010337 033472 30$: MOV R3,TiS5S2 s ADDRESS 19 yao DATA AREA 
S422 032460 010465 000000 MOV R4, TSDBCRS) sSEND OUT PACKET ADDRESS 
5423 032464 004737 016376 JSR PC ,CHKTSSR ;WAIT FOR SSR 
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103405 
010001 


104456 
00064 


0 
033476 
012106 


104406 
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TEST 


00000 

033472 
000000 
016376 


033022 


000377 
000002 
000377 
000000 
016376 


000001 
000000 
016376 


033470 


033470 
033474 


033470 


33$: 


41$: 


42%: 


43%: 


BCS 
MOV 
ERRHRD 


CKLOOP 


33% 
RO,R1 
ERRNO, T15SSR ,PKTSSR 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


TISBFR+20,R1 
R1,R2 


42% 
ERRNO, T1SAM3 , EXPBREC 


#000377 ,R2 
$2,7158S0 

#000377, 715S3 

R4, TSDBCRS) 

PC. CHKTSSR 

adi 

ERRNO, TISSSR,PKTSSR 


#1,7158S0 
R4.TSDBCRS) 
PC; CHKTSSR 
443 


RO,R1 
ERRNO, T1SSSR,PKTSSR 


SEQ 0133 


rte NO PROBLEM 
sTSSR NOT CORRECT 


TRAP C$ERHRD 
«WORD 416 
-WORD T1SSSR 
«WORD PKTSSR 
sSCOPE LOOP 
TRAP C$CLP1 
sNEXT ADDRESS 
sEND OF RAM MEMORY CK 
BR RAM_TO GO 


OMMAND 
SAND.AESS TO BE READ TO PACKET DATA 
PACKET ADDRESS 


sSEND OUT PACK 

;WAIT FOR SSR TO SET 
sBR, IF ALL IS WELL 
sSAVE TSSR 

sTSSR NOT CORRECT 


TRAP C#ERHRD 

- WORD 17 

«WORD T1SSSR 

. WORD TS. 
sSCOPE LOOP 

TRAP CSCLP1l 


sPICK UP READ DAT 
sBOTH a eso BE 1121111 BINARY 
sBR, IF DAT 
‘CHARACTERISTICS DATA NOT CORRECT 
TRAP CS$ERHRD 


° 418 
-.WORD T1SAM3 
-WORD EXPBREC 
T ALL ONES WORD 

WRITE RAM COMMAND 

sALL ONES PATTERN 

:PASS PACKET ADDRESS TO CONTR. 

sWAIT FOR SSR 

3BR, if OK (NO ERROR) 

SAVE T SR 

sTSSR NOT CORRECT 
TRAP CSERHRD 
.WORD 419 
-WORD T1iSSSR 
.WORD PKTSSR 

sSCOPE LOOP 
TRAP C$CLP1 


sSET UP FOR RAM READ 


sWAIT FOR SSR TO SET 
OK (NO ERROR) 


VE 
sTSSR NOT CORRECT 


Ell 
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104456 
000644 
033476 
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033022 


000377 


016516 
031434 


TISBFR+20,R1 
R1,R2 


MOV 
BEQ 45$ 
ERRHRD ERRNO, T1SAM2,EXPBREC 


4S$: CKLOOP 


DEC R3 
CMP R3, 9255. 
BNE 40$ 
50$: 
ENOSUB 


JSR PC, TSTLOOP 
63$ 


BCC 
JMP T1SLO00P 
63%: EXIT TST 


LOCAL STORAGE FOR THIS TEST 
od 


TISPACKET : 
. WORD 00. 
-WORD TI1SDATA 
. WORD 
-WORD 8. 
TISDATA; 
-WORD T1SBFR 
. WORD 
. WORD 
WORD 0,0 


TISBFR: {BLKW 150. 


;WRITE SUBSYSTEM MEMORY COMMAND PACKET 
3 


T1SPK2: 
-WORD 100206 
-WORD T1SBF2 
. WORD 
-WORD 6 
EVEN 

T156Fe: 


SEQ 0134 
TRAP  CSERHRD 
.WORD 420 
"wORD  T1SSSR 
“WORD PKTSSR 
;PICK UP REC'D DAT 
;CHECK WITH DATA URITTEN 
;6R IF OK, DATA IN = DATA OUT 
;WRITTEN bata NOT = TO READ 
CSERHRD 
.WORD 421 
"WORD  TI15AM2 
[WORD €XPBREC 
;SCOPE LOOP 
C$CLP1 


sDROP RAM ADDRESS POINTER 
AT START YET 
3;68R, IF MORE RAM TO CHECK 
s\ANNANANANANN END SUBTEST N\ANANANANANAN 
L100S2: 
TRAP CsESUB 

DO WE NEED TO ITERATE TEST ? « 

IF NOT 

AGAIN 
sALL DONE THIS TEST 


TRAP CsEXxIT 
-WORD L10047-. 


sCOMMAND PACKET FOR TEST 

;WRITE CHARACTERISTICS COMMAND, WITH IE, ACK 
sADDRESS OF CHARACTERISTICS BLOCK 

sSTARTING VALUE OF BLOCK SIZE 
sCHARACTERISTICS DATA BLOCK 

sADDRESS OF MESSAGE BUFFER 

sLENGTH OF MESSAGE BUFFER 


sMESSAGE BUFFER 


sWRITE SUB SYS MEM COMMAND, IE AND ACK 
sADORESS OF SELECT BLOCK DATA 


sSIZE OF DATA PACKET 


Fil 
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TEST 4: RAM EXERCISER TEST 
033470 000 T158S0: .8YTE 0 ;BSELO A 
033471 000 T1S56S1: .BYTE 0 ;BSEL1 AREA 
5530 033472 000000 715S2 .WORD i¢) ;SEL 2 AREA 
ges3 033474 000000 T15S3 . WORD 0 J ;DATA AREA 
5533 
55 
rah y 
Prd ;LOCAL TEXT MESSAGES FOR TEST 
3339 
S540 033476 127 122 111 T15SSR: .ASCIZ ‘WRITE SUBSYSTEM MEMORY ° 
5541 033552 127 122 111 TISAM2: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On All Ones Word Read Back’ 
S42 033653 127 122 111 T1ISAM3: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On All cores Word Read Back’ 
$543 033755 127 122 111 T1SAM4: .ASCIZ ‘WRITE SUBSYSTEM MEMORY COMMAND Failed On Address Test’ 
Sees 3 122 101 115 TST1iSI0: -ASCIZ ‘RAM Exerciser’ 
5548 sROUTINE TO RESTORE COMMAND PACKET TO START-UP (DEFAULT) VALUES 
5549 i WRITE SUBSYSTEM MEMORY COMMAND 
5550 3 
5553 034062 TISREST: 
5S 034062 SAVREG ~~. THE REGISTERS 
5555 034066 012701 032760 MOV @T1SPACKET,R1 3START OF THE PACKET 
5S 034072 012721 100 MOV #100204 ,(R1)- sWRITE SUBSYSTEM MEM. WITH ACK, IE 
5557 034076 012721 032770 MOV OT1SDATA, (Ri) ;ADDRESS OF CHARAISTICS DATA BLOCK 
5558 034102 CLR CR1)- sEXTENDED ADDRESS 
5559 034104 012721 000010 MOV $8. ,(R1)- ;SIZE OF DATA BLOCK IN BYTES 
5560 034110 012721 033002 MOV #Ti5BFR,(R1)- sADDRESS OF MESSAGE BUFFER 
5561 03411 005021 CLR CR1)- 
5562 034116 012721 000400 MOV $256. .CR1)- ;sLENGTH OF MESSAGE BUFFER 
5563 034122 005021 CLR (R1)- 
5564 0341 005011 CLR CR1) 
S565 034 005037 033002 CLR TiSBFR ;CLEAR 1ST LOC IN MESSAGE BUFFER 
sacs 034132 000207 RTS PC ;RETURN 
5568 
S569 034134 TISRT2: 
5570 034134 SAVREG sSAVE THE REGISTERS 
5571 034140 012701 033460 MOV @T15PK2,R1 sSTART OF THE PACKET 
$572 034144 012721 100206 MOV 9100206, (R1)-+ ;WRITE suesvoren MEM. WITH ACK, IE 
5573 034150 012721 033470 MOV OT1SBF2.(R1)- sADDRESS OF DATA BLOCK 
5574 034154 005021 CLR CR1)- EXTENDED ADDRESS 
5575 034156 012721 000006 MOV 06. ,CR1)- s;SIZE OF DATA BLOCK IN BYTES 
5576 034162 005021 CLR (Ri}- 
5577 034164 00502 CLR (R1)- 
5578 034166 005011 CLR (R1) 
5579 034170 000207 RTS PC ;RETURN 
5580 034172 ENDTST 
034172 L10047: 
034172 104401 TRAP CsETST 


Gil 
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TEST S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


012700 036252 
004737 016550 
012737 000012 002216 


-SBTTL TEST 5S: EXTENDED FEATURES SWITCH AND TIMERS A,B 


“TEST DESCRIPTION: 


This test | oy ta the Invert Extended Features function 
can logically invert the Extended features switch and 
thet t internal timers A and B operate correctly. 


TEST STEPS: 
REPEAT FOR LOOPCNT 
BEGIN 
Do Subtest 1 - Verify Putendes Features Switch 
Do Subtest 2 - Verify Timers A,B 
BGNTST 1, 
MOV #TST161D,RO sASCII a TO IDENTIFY TEST 
JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
oe MOV #10. ,LOOPCNT ; PERFORM 10 ITERATIONS 


-SBTTL TEST S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


; TEST S: SUBTEST 1: 


SUBTEST DESCRIPTION: 


This subtest verifies that the Invert Sense of Extended features 

Switch function (Write Subsystem Memory,Write Misc command) 

operates properly. 

First the state oP the Extended Features switch is read in the 

message packet supplied by the write characteristics command. 

Then, the sense of the switch is logically inverted. 

A Write cheracter istics command is executed and it is verified 

that the Extended status register (XST4) is returned when 

in Extended mode, and not returned if not in extended mode. 

The subtest also verifies that specifying a Message Buffer 

yea = rg any of bits 21-19 ,set will cause the command to 
re jec 


TEST STEPS: 


Write to TSSR ceaister to soft initialize the controller 
Do WRITE CHARACTERISTICS to check for Extended Features Switch 
an ore Features Hardware Switch CLEAR 


se et Extended Features switch can be Inverted to SET *) 
rT 

DO ea WRITE See K RAC TERTSTECS with an extended characteristic word 
Compare the controller ram to the extended characteristic word 


Write Miscellaneous to SET Extended Features. 


SEQ 0136 


Hil 
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S682 

5683 034312 
5684 034316 
S685 eats 


5686 034326 
5687 034332 


104402 


012701 
032761 
001402 


000137 
012703 
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TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


016034 


002222 


037622 
000200 


034676 
002766 


000012 


12%: 


15$: 


20%: 


SEQ 0137 


If Data word in controller ram NOT= to word sent Then Print Error 
a. af Message Buffer Data Length NOT= 12. Then Print Error 

(* ngs oa ene Features switch can be Inverted to CLEAR *) 

Do Writ Mpevstes Write Miscellaneous to CLEAR Extended Features. 

Do a Untre CHARACTERISTICS without an extended characteristic word 
i Buffer Date Length NOT= 10. Then Print Error 
(* Verify Function Reject when Message Buffer 21-19 are non-zero *) 
Write to TSSR cohen Br to soft initialize the controller 
REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM O TO 7 

DO a WRITE CHARACTERISTICS with a mess address bit<21:19> non-zero 
en aiteat termination code NOT= Function Reject Then Print Error 


BGNSUB sSSISASSSSSSS saa SUBTEST ////////// 
TRAP C$BSUB 


Write to ig r qatar to soft initialize the controller 

JSR PC,S sWRITE TO TSSR TO sar INITIALIZE 

BCS al i‘ IF SOFT INIT OKAY 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERRNO, SFIERR, SFIMSG i DEVICE FATAL DURING INIT 

TRAP CSERDF 
-WORD S00 
-WORD SFIERR 
.WORD SFIMSG 


Do WRITE CHARACTERISTICS to check for Extended Footwres Switch 
SR PC, T16REST ULTS 


J ratty! ava’ Ba DEF AUL 
CLR FATFLG CLEAR FATAL ERROR FLAG 
MOV @TI6PACKET ,R4 3;GET THE HE ADDRESS OF COMMAND PACKET 
JSR PC,WRTCHR ;D0 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ jaeoronve € ERROR IF FORCER=1 
BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 
—. RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
‘ 501 
i T16SSR 
PKTSSR 
INC FATFLG 3SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG <r. 
C$CLP1l 
If Extended Features Hardware Switch Clear then: 
(* per TL enpentee Features switch can be Inverted to SET #) 
REPEAT F TEST PATTERNS IN TSTBLK TABLE 
MOV @T16BFR,R1 sMESSAGE BUFFER ADDRESS 
BIT OX2.EXTF,XST2(R1) S EXTENDED FEATURES SUTTCH CLEAR? 
BEQ 20% - IF YES 
JMP 200$ 
MOV @TSTBLK+10. ,R3 START OF TEST DATA 


til 
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034552 
S729 034556 


104406 


012704 
004737 
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TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


037560 
037650 


000000 
016376 


002222 


125252 
037600 


000020 
002314 
010662 


002222 


000000 
037622 
000020 


037610 
011264 


002314 


000006 
037620 


32$: 


42$: 


50$: 


72%: 


Do Write Subsystem Write Miscellaneous to SET Extended Features. 
JSR sFiabes ns sSETUP PACKET FOR WRITE MISC INVERT 


MOV oTi R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 32$ jRadr once ERROR IF FORCER=1 
BCS 40$ :B8R IF CARRY SET (GOOD RETURN) 
MOV - RO,R1 sSAVE CONTENTS OF TSSR 
ERRNO, T162SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP ~—s- CSERDF 
.WORD 502 
- WORD T162SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
C$CLP1 
DO ea WRITE COns TERISTICS with an extended characteristic word 
MOV 9125252,DATA ;SETUP TEST DATA FOR EXTENDED WORD 
MOV @T16PACKET R4 }GET THE ADDRESS OF COMMAND PACKET 
MOV »PKBCNT(R4) i STORE MESSAGE PACKET SIZE 
MOV BATA TI6DATA+10 sSTORE TEST DATA IN EXTENDED 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42$ 33 @aO0FORCE ERROR IF FORCER=1 
BCS 50$ :BR IF CARRY SET ¢GO0D RETURN) 
MOV. a RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO,T16SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP = CSERDF 
.WORD 503 
- WORD T16SSR 
PKTSSR 
INC FATFLG SET FATAL ERROR FLAG 
CKLOOP LOOP ON ERROR, IF FLAG SET i aie 
If the TSBA “0 Register NOT= Expected Then Print i 
MOV TSBACRS),R :GET TSBA REGISTER CONTENTS 
MOV OT16BFR, as? }START OF THE DATA BUFFER 
ADD #16. ,R2 sEXPECTED CONTENTS OF TSBA 
FORCERROR 72$,NOTSSR s@@OFORCE ERROR IF FORCER=1 
CMP R1,R2 ;COMPARE EXPECTED TO RECEIVED 
BEQ 80$ sERROR IF NOT EQUAL 
NEXT . ERRNO 
ERRHRD ERRNO, T16TSBA,EXPREC sPRINT THE ERROR & EXPD/RECV 
TRAP § CSERHRD 
.WORD 504 
“WORD T16TSBA 
EXPREC 


CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP C$CLPl 
“ci? Ps the controller ram to the "+9 Fmt ay ty word 


te word in controller ram NOT= t Then Print Error 

T16DATA,R4 3GET chaRACTERTSTIc gt cone ss 
oR PC,CKRAM2 }DOES RAM DATA EQUAL DATA SENT? 
FORCERROR 92$ s@@DFORCE ERROR IF FORCER=1 


SEQ 01386 


Jil 
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5730 
$731 
$732 


034572 


103404 


012702 
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TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 


037622 
000002 
000014 


016034 


035056 


037560 
037650 


000000 
016376 


002222 


92%: 


112s: 


120%: 


232%: 


240%: 


(* 


BCS 


NEXT . ERRNO 
ERRHRD 


CKLOOP 


If Resoore tk eyis” Dete 


100$ 
ERRNO , PKTRAM,RAMERR 


2(R2) te 
#12. ,R2 


FORCERROR 112$,NOTSSR 


CKLOOP 
JMP 


ERRNO, TI6LEN, EXPREC 


PC, SOF INIT 
1253 

RO,R1 

ERRNO, SFIERR, SFIMSG 


300$ 


:BR IF YES 


;REPORT THE RAM ERROR(S) 
TRAP — 


. WORD 

«WORD PKTRAM 

.WORD RAMERR 
sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLPl 


Length NOT= 12. Then Print Error 


GET MESSAGE BUFFER ADDRESS 

s;GET RECV DATA FIELD LENGTH 

sGET EXPD DATA FIELD LENGTH 
s@@OFORCE ERROR IF FORCER=1 

3 COMPARE “EXPECTED 10 RECEIVED 


sERROR IF NOT 
:PRINT THE ERROR € EXPD/RECV 
TRAP CSERHRD 
-WORD 506 
-WORD TI16LEN 
.WORD EXPREC 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


sWRITE TO TSSR TO yy INITIALIZE 
:BR IF SOFT INIT a 
sSAVE CONTENTS OF TSSR 
;DEVICE FATAL DURING par —_ 
TWORO 
“WORD SFIERR 
. WORD 
sLOOP IF SELECTED 


TRAP CsCLP1 


Verify Extended Features switch can be Inverted to CLEAR #) 
Do Write ite steer Write Miscellaneous to CLEAR Extended Features. 


JSR PC,T1 
MOV OTI6PK2,R4 
MOV R4, TSDBCRS) 
JSR PC; CHKTSSR 
FORC 2 
BCS 240$ 
MOV RO,R1 
NEXT 
ERRNO, T162SSR,PKTSSR 
INC FATFLG 
CKL 


S 
v 
3 
s 
of 
2 
or 
: 


Pp 
sWAIT FOR SSR TO , ae 
F FORCER=1 


= @aDFORCE ERROR 
;BR IF C Y SET ($008 RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 7 
-WORD 1162SSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


SEQ 0139 


K1ii 
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SEQ 0140 
TEST S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 

5767 8 DO e@ WRITE CHARACTERISTICS without an extended characteristic word 

5768 034754 012704 037600 MOV @TIGPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

S769 034760 012764 000016 000006 MOV 014. ,PKBCNT(R4) ; STORE MESSAGE PACKET SIZE 

5770 034766 004737 010662 JSR PC ,WRTCHR 300 WRITE ean cheat COMMAND 

S771 034772 FORCERROR 242% @aDFORCE ERROR IF FORCER=1 

5772 035006 103407 BCS 250% ;BR IF CARRY SET (6008 RETURN ) 

$773 035010 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5774 035012 NEXT .ERRNO 

5775 035012 242$: ERRDF §ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035012 104455 TRAP CSERDOF 
035014 000774 -WORD 508 
035016 036322 -WORD T16SSR 
035020 012106 -WORD PKTSSR 

$776 035022 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

$777 035026 250%: CKLOOP ;LOOP ON ERROR, IF FLAG Ser 
035026 104406 Cs$CLP1 

S776 F If Me we Data Length NOT= 10. Then Print oer 

5779 035030 013701 037624 MOV T16BFR-2,R1 ;GET RECV DATA FIELD LENGTH 

$780 035034 012702 000012 MOV #10. ,R2 ;GET EXPD DATA FIELD LENGTH 

5781 035040 020102 CMP R1,R2 sCOMPARE EXPECTED TO RECEIVED 

5782 035042 001404 BEQ 2768 s;ERROR IF NOT EQUAL 

5783 035044 NEXT .ERRNO 

5784 035044 262%: ERRHRD ERRNO, T16LEN,EXPREC ;PRINT THE ERROR & EXPD/RECV 
035044 104456 TRAP CSERHRD 
035046 000775 -WORD 509 
035050 036572 -WORD TI6LEN 
035052 015534 .WORD EXPREC 

5785S 035054 270%: CKLOOP sLOOP ON ERROR, IF FLAG SET 

57 035054 104406 TRAP Cs$CLP1 

5787 

5788 F (* Verify Function Reject when Message Buffer 21-19 are non-zero *) 

5789 Write to TSSR register to soft initialize the controller 

5790 035056 $008: 

$791 REPEAT FOR MESSAGE BUFFER ADDRESS bits <21:19> FROM 0 TO 7 

5792 035056 012737 000001 002314 $208: MOV @1,DATA 3START AT BITS<21: 19>=001 

Las os Loss DO @ WRITE CHARACTERISTICS with ea message address bit<21:19> non-zero 

5795 035064 012704 037600 MOV @TIGPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

5796 035070 012764 000016 000006 MOV $14, ,PKBCNT(R4) i STORE MESSAGE PACKET SIZE 

5797 035076 013700 002314 MOV DATA, RO 3;GET TEST DATA 

5798 000003 -REPT 3 

das oo RO sSHIFT INTO BITS 21:19 

5801 035110 010037 037612 MOV RO, TI6DATA+2 sSTORE BUFFER ADDRESS BITS 21:19 

5802 035114 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

5803 035120 004737 016310 JSR PC ,WAITF sWAIT FOR SSR 

58604 035124 FORCERROR 342% rt @aDFORCE ERROR IF FORCER=1 

5805 035140 103407 BCS 350% sBR IF CARRY SET (6008 RETURN) 

5806 035142 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

5807 035144 NEXT . ERRNO 

5608 035144 342%: ERRDF ERRNO,T16SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035144 104455 TRAP cs 
035146 000776 -WORD 510 
035150 036322 -WORD T16SSR 
035152 012106 WORD PKTSSR 

5809 035154 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 


Lil 
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SEQ 0141 
TEST 5S: SUBTEST 1: VERIFY EXTENDED FEATURES TEST 
5810 035160 350%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
2011 035160 104406 TRAP CS$CLP1 
seis ; If TSSR termination code NOT= Function Re ject Then Print Error 
5813 035162 016501 000002 MOV or phe ;GET RECV TSSR 
5814 035166 010102 MOV ;COPY RECV TSSR 
5815 035170 042702 000016 BIC STERCLS R2 sCLEAR TC<2:0> EXPD 
5816 035174 052702 000006 BIS OTSREJ,R2 ;SET EXPD TC<2: O>= FUNCTION REJECT 
5817 035200 FORCERROR 352$ ,NOTSSR ;@@DFORCE ERROR IF FORCER=1 
5818 035210 020102 CMP R1,R2 3;EXPD EQUAL RECV? 
5819 035212 001404 BEQ 360$ ;0R IF YES 
5820 035214 NEXT .ERRNO 
$821 035214 352%: ERRHRD ERRNO, TI6GREJ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
035214 1044 TRAP CSERHRD 
035216 000777 ‘ 11 
036704 .WORD T16REU 
035222 012106 .WORD PKTSSR 
5822 035224 360$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
035224 104406 TRAP C$CLP1 
5823 035226 FORCEXIT 370$ 
5824 035236 005237 002314 INC DATA ;GET NEXT rst paren 
5825 035242 023727 002314 000007 CMP DATA, #7 sDONE ALL DATA? 
5826 035250 101002 BHI 370$ ;BR IF YES 
5827 035252 000137 035064 JMP 325% 300 ANOTHER TEST PATTERN 
5828 i END-REPEAT 
$829 035256 70%: 
5830 035256 ENDSUB s////44/4/4/74 END SUBTEST /////////7/ 
035256 L10054: 
s: 035256 104403 TRAP CsESUB 
S832 035260 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
5833 035264 001402 BEQ 460$ sBRANCH IF NOT 
5834 035266 004737 017242 JSR PC, CKDROP ; TRY TO DROP THE UNIT 
5835 035272 460$: 
5836 
5837 
5838 
5839 
5840 
5841 -SBTTL TEST S: SUBTEST 2: VERIFY TIMERS A,B 
5843 see 
5844 ; TEST S: SUBTEST 2: 
5845 3 
sess ; SUBTEST DESCRIPTION: 
Q 
5848 ; This subtest verifies that Siagre A.B can be reset 
5849 3 and thet Timer A is twice the frequency of Timer 8. 
5850 : Timer A has ea period of 25 microseconds end Timer B 
58651 3 hes e period of 50 microseconds. The timers are 
aeae 3 checked at 1, 28, 53, and 78 micoseconds. 
3 
5854 :; TEST STEPS: 
5855 3 
S856 ; F 
5857 ; Write to TSSR register to soft initialize the controller 
58658 ’ Do WRITE CHARACTERISTICS to setup ea Message Buffer 


Mil 
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TEST S: SUBTEST 2: VERIFY TIMERS A,B 
5859 


016034 


035310 003654 


002222 


000001 
23270) 036242 
004 037532 
037650 
000000 


016376 


5901 035414 
5902 035420 
5903 035424 
5904 035430 


Ue 
we 


; 
10$: 


12%: 
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(+ pay Ads é Timers A,B Softer RESET TIMER with O microsecond delay *) 
Do é SET we with 1 microsecond delay 

Do ea Write Subsystem READ STATUS 

If Timer A NOT= 0 Then Print Error 

If Timer 8 NOT= 0 Then Print Error 

(* pay be | Timers A,B after RESET TIMER with 28 microsecond delay *) 
Do ea Wri . Control RESET TIMER with 28 microsecond delay 

If Timer A Then Print Error 

If Timer 6 NOT= 1 Then Print Error 

Do a Write Control o" TIMER with 53 microsecond delay 

If Timer A NOT= O Then Print Error 

If Timer 8 NOT= 1 Then Print Error 

Do a Write Control GEseT TIMER with 78 microsecond delay 

I? Timer A NOT= 1 Then Print Error 

If Timer B NOT= O Then Print Error 


s444A441ASSSS Se S44ASSSSSS 


TRAP C$BSUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT ;WRITE TO TSSR TO SOFT INITIALIZE 
BCS 10$ ;B8R IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO, SFIERR,SFIMSG {DEVICE FATAL DURING INIT 
TRAP CSEROF 
"TORO 511 
:WORD SFIERR 
.WORD SFIMSG 
Do WRITE DORAL TERISTICS to nee a nestone Packer 
JSR PC, TI6GREST T SEFAULTS 
CLR FATFLG Or eAR FATAL ERROR FLAG 
MOV OTIGPACKET ,R4 :GET THE ADDRESS OF COMMAND PACKET 
MOV $8. ,PKBCNT(R4) sMESSAGE PACKET SIZE NO EXT 
JSR PC, URT 300 WRITE CHARACTERISTICS C 
F 12$ ja0F ORCE ERROR IF FORCER=1 
BCS 15$ :B8R IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO, T16SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CsEROF 
.WORD 512 
"WORD T16SSR 
[WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
CSCLP1 
(* Verif ite! Timers A,B after RESET TIMER with 1 microsecond delay *) 
Do a Write Contre} "RESET TIMER with 1 microsecond dele ay 
MOV FSD,RO sRESET TIMER C 
MOV 716001 Ri 31 MI COND 
JSR PC, TI6WMISC sSETUP T16PK2 COMMAND PACKET 
MOV OTIGPK2 ,R4 :GET WRITE SUBSYSTEM COMPAND PACKET 
MOV R4, TSOBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
F 32% s@@DFORCE ERROR IF FORCER=1 


SE@ 0142 


Nii 
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TEST 5S: SUBTEST 2: VERIFY TIMERS A,B 
BCS 40$ sBR IF CARRY SET (GOOD RETURN) 
MOV RO,R sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERROF 


ERRNO, T162SSR,PKTSSR sDEVICE FATAL SSR Fane 


. WORD 
. WORD 


INC FATFLG SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG +. 


If Timer A NOT= O Then Print Error 
eet NOT= 0 Then Print Error 


000010 BIC @S2.ATIM,R2 

000004 BIC 

037642 MOV 

000002 MOV 2(RO),R1 BYTE 2 

177763 g7C<S2.ATIN!S2.BTIM> ,R1 i SAVE TIMER A:B RECV ONLY 


. :aa0 
iEXPD EQUAL RECV? 
sBR IF YES 


ERRHRD ERRNO, 116701, TIMEXP sREPORT ERROR — 
. WORD 
. WORD 
. WORD 
oop sLOOP ON ERROR, IF FLAG SET 
TRAP 
a Write Control RESET TIMER with 28 microsecond delay 
000001 OMS .RSD,RO RESET TIMER COMMAND 
036244 
037532 


037650 PACKET 
000000 sSET_ THE PACKET ADDRESS TO EXECUTE 
016376 sWAIT FOR SSR TO SET ° “a 


BADFORCE ERROR IF 
BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 

TRAP ~~ 
62SSR 
“WORD PKTSSR 


csc. P) 
imer A NOT= Then Print Error 
cog hap NOT= Then Print 


Vv 
sGET RECV BYTE 2 





Bie 
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035770 


035772 
y+ a 


042701 


020201 
001404 


104456 
001004 
037120 
015612 


104406 
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177763 


036246 
037532 
037650 
000000 
016376 


002222 


000010 
000004 
037642 
000002 
177763 


036250 
037532 
037650 
000000 


172$: 


212$: 


272s: 


BIC @tC<S2.ATIM!S2.BTIM>,R1 ;SAVE TIMER A:B RECV ONLY 
FORCERROR 172$,NOTSSR :aa0 

CMP R2,R1 FEXPD EQUAL RECV? 

pe, 180$ sBR IF YES 


NEXT . ERRNO 
ERRHRD ERRNO,116T28, TIMEXP sREPORT ERROR 


CKLOOP ;LOOP ON ERROR, IF FLAG Ser 


Do a Write Consral RESET TIMER with Fe wicreoncond delay 
MOV OMS .RSD,RO 3RE TIMER tay 
:33 PIECROSECOND DELAY 


sWAIT FOR SSR TO SET 


SE@ 0144 


CsCLP1 


ACKET 
sSET_ THE PACKET ADDRESS TO EXECUTE 


FORC 212$ ;@@O0FORCE ERROR IF FORCER=1 
BCS 220% ;BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

ERRDF ERRNO,T162SSR,PKTSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


. WORD 
. WORD 
INC FATFLG s;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG =r. 


If Timer A NOT= O Then Print Error 
Peel NOT= 1 Then Print Error 


2 sINIT EXPD 

BIC $52. ATIM,R2 ;TIMER A EXPD=0 

BIS $52. BTIM.R2 sTIMER B EXPD= 

MOV $T16BFSTA,RO 3GET RECV READ STATUS 

MOV 2(RO),R1 ;GET RECV BYTE 2 

BIC $1C<S2.ATIM!S2.BTIM>,R1 ;SAVE TIMER A:B RECV ONLY 

FORCERROR 272$,NOTSSR ;aaD 

CMP R2,R1 ;EXPD EQUAL RECV? 

BEQ 280$ :BR IF YES 

NEXT . ERRNO 

ERRHRD ERRNO,T16TS3, TIMEXP ;REPORT ERROR a 
. WORD 
> WORD 


“WORD 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
Do a Write Control RESET TIMER with 78 microsecond delay 
MOV OMS .RSD,RO ;RESET TIMER C 
MOV T16078,R1 178 MICROSECOND DELA 
JSR PC, TIGWMISC ;SETUP T16PK2 CORMAND PACKET 
MOV T16PK2 ,R4 
MOV Ra TSDBCRS) 


C#ERHRD 
518 
T16TS3 
TIMEXP 
CS$CLP1 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 


Cie 
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000076 
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016376 


002222 


000010 
000004 
037642 
000002 
177763 


002222 


017242 
016516 


034212 


JSR PC ,CHKTSSR 
ERROR 312$ 


SEQ 0145 


sWAIT FOR SSR TO SET 


FORC ;@@DFORCE ERROR IF FORCER=1 
BCS 320% ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
312$: ERRDF ERRNO,T162SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
. WORD 9 
"WORD 71162SSR 
. WORD TS 
INC FATFLG :SET FATAL ERROR FLAG 
320%: CKLOOP ;LOOP ON ERROR, IF FLAG SET satis 
3 If Timer A NOT= 1 Then Print Error 
: If Timer B NOT= O Then Print Error 
CLR R2 :INIT EXPD 
BIS #S2.ATIM,R2 sTIMER A EXPD=1 
BIC $52 .BTIM.R2 :TIMER B EXPD=0 
MOV eT 16BF STA,RO ;GET RECV READ STATUS 
MOV 2(RO ;GET RECV BYTE 2 
BIC osCxe3 ATIM!S2.BTIM> Ri "SAVE TIMER A:B RECV ONLY 
FORCERROR 372$ ,NOTSSR 3aa0 
CMP R2, }EXPD EQUAL RECV? 
BEG, 380$ ;8R IF YES 
372$: ERRHRD ERRNO,T16178, TIMEXP ;REPORT ERROR 
TRAP $ERHRD 
. WORD 
“WORD 116778 
“WORD  TIMEXP 
380$:  CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP C$CLP1 
ENDSUB 3/4///4/////4 END SUBTEST ////////// 
L10055: 
TRAP CsEsuB 
TST FATFLG ; ANY FATAL ERRORS ? 
BEQ 460$ ;BRANCH IF NOT 
JSR PC ,CKDROP TRY TO DROP THE UNIT 
460$: JSR PC, TSTLOOP sSHOULD WE DO ITERATIONS? 
BCC 465% ;8R IF NO 
atid JMP T16L00P ;LOOP UNTIL ITERATIONS DONE 
EXIT TST s444/444444 EXIT TEST SSS4/4/4//4/4467/ 
TRAP CS#EXIT 
.WORD 110053-. 


SLOCAL STORAGE FOR THIS TEST 


416001: .WORD 1 
116026: “WORD 40 
116053 “WORD 76 


31 MICROSECOND DELAY (ACTUALLY .8 MIC) 
328 MICROSECOND DELAY (.8 MICROS PER) 
353 MICROSECOND 
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SEQ 0146 
TEST 5S: SUBTEST 2: VERIFY TIMERS A,B 
ox 036250 000142 716078: -WORD 142 378 MICROSECOND 
3¢ 
60 LOCAL TEXT MESSAGES FOR TEST 
oe ; 
6037 036252 105 170 164 TST16ID: ASCIZ ‘Extended Features Switch and Timers A,B’ 
6038 036322 127 122 111 T16SSR: .ASCIZ ‘WRITE CHARACTERISTICS Failed’ 
6039 036357 127 122 111 T162SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write Misc) Failed’ 
6040 036423 127 122 111 1T163SSR:.ASCIZ ‘WRITE SuBSYSTEN (Read Statue) Feiled’ 
6041 036470 102 165 163 T16TSBA:.ASCIZ ‘Bus Address Register C(TSBA) Incorrect after Write Characteristics’ 
6042 036572 104 141 164 TI16LEN: .ASCIZ ‘Date Field L in Message Buffer Incorrect after Write Characteristics’ 
- 6043 036704 124 123 123 T16REJ: .ASCIZ TSSR Function Saeee Not Returned When Non-Existent Buffer Address Specifie 

6044 037021 124 151 155 1716T01:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 1 microsecond Delay’ 
6045 037120 124 151 155 116728: .ASCIZ ‘Timer A,B Incorrect after Reset Timer with 28 microsecond Delay’ 
6046 037220 124 151 155 Ti6T53:.ASCIZ ‘Timer A,B Incorrect after Reset Timer with 53 microsecond Delay’ 
6047 037320 124 151 15S 116778: .ASCIZ ‘Timer A,B Incorrect after Reset Timer with 78 microsecond Delay 
6049 
6050 3° 
6051 3 SET DEFAULT PACKET 
6052 i; 
6053 037420 16REST: 
6054 037420 012700 037600 MOV @T16PACKET ,RO PACKET ADDRESS 
6055 037424 012720 100004 MOV #100004 , (RO)- i WRITE OO TERTST IES WITH ACK 
6056 037430 012720 037610 MOV @TI6DATA, (RO)-+ sADDRESS OF CHAR DATA BLOCK 
6057 037434 005020 CLR CRO)- sEXTENDED ADDRESS 
6058 037436 012720 000012 MOV #10. ,(RO)-+ sSIZE OF MESSAGE PACKET 
6059 037442 012720 037622 MOV eTL6BFR R,CRO)- sMESSAGE BUFFER ADDRESS 
6069 037446 005020 CLR CRO sCLEAR EXTENDED BUFFER ADDRESS 
6061 037450 012720 000024 MOV $20. *(RO)s sLENGTH OF MESSAGE BUFFER 
6062 037454 005020 CLR (RO)s ;CLEAR ESS,ENB,EAI,ERI 
6063 037456 005010 CLR (RO) :CLEAR EXTENDED FEATURES WORD 
6064 037460 005037 037622 CLR T16BFR ;CLEAR 1ST LOCATION IN MESSAGE BUFFER 
6065 037464 000207 RTS PC 3 
6066 
6067 
6068 ; CLEAR MESSAGE BUFFER 
6069 4; 
6070 037466 16CLRBUF : 3 
6071 037466 SAVREG sSAVE R1-RS UNTIL NEXT RETURN 
6072 037472 012701 037622 MOV ST16BFR,R1 3;GET MESSAGE BUFFER ADDRESS 
6073 037476 012702 000026 MOV $T16BENOD-T16BFR,R2 sSIZE OF MESSAGE BUFFER IN BYTES 
6074 037502 105021 10$: CLRB (R1)- ;CLEAR A BYTE 
6075 037504 005302 DEC R2 3DONE? 
6076 037506 003375 BGT 10$ ;68R IF NO 
6077 037510 000207 RTS PC ;RETURN 
6078 
6079 3° 
6080 3: SETUP T16PK2 PACKET FOR READ STATUS 

PC, Dea sCLEAR MESSAGE BUFFER 

eTi6DT2 ;WRITE SUBSYSTEM DATA BUFFER 

oP. ROS TATUS. CRO)-+ sSTORE READ STATUS COMMAND IN BSELO 

(RO) sCLEAR BSEL1 

PC sRETURN 





Ele 
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SEQ 0147 
TEST 5S: SUBTEST 2: VERIFY TIMERS A.B 

6089 
6090 “ 
6091 ; SETUP T16PK2 PACKET FOR WRITE MISC. 

; 
£098 } INPUT: 
6094 ; RO CONTAINS WRITE MISC FUNCTION CODE (BSEL1) 
6095 ; R1 CONTAINS DELAY (TIMES 800 NS) FOR BSEL2 
6097 037532 + 16WMISC: 
6098 037532 SAVREG :SAVE R1-RS UNITL NEXT RETURN 
6099 037536 004737 037466 JSR PC, TI6CLRBUF CLEAR MESS UFFER 
6100 037542 012702 037660 MOV @Ti6DT2,R2 }WRITE SUBSYSTEM DATA BUFFER 
6101 037546 112722 000010 - MOVE  @PW_ WMISC..(R2)- }STORE WRITE MISCELLANEOUS IN BSELO 
6102 037552 110022 MOVB RO, (R2)- ;STORE WRITE MISC CODE IN BSEL1 
6103 037554 110112 MOVE  R1,(RD) }STOR™ DELAY (RESET TIMER) IN BSEL2 
6104 037556 RTS PC ;RETURN 

3° 
6106 ; SETUP T16PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
6108 037560 416SEXT: 
6109 037560 012700 037660 MOV 6T160T2,RO ;WRITE SUBSYSTEM DATA BUFFER 
6110 037564 112720 000010 MOVB oPu. TSC (RO)- }STORE WRITE MISCELLANEOUS IN BSELO 
6111 037570 112710 000200 HOVE SMSLEXT TROD ;STORE INVERT EXTENDED FEATURES IN BSEL1 
6112 037574 000207 RTS PC | RETURN 
6113 
6114 
6115 
6116 
6118 037600 =<, ©10€177770 

; 
612 WRITE CHARACTERISTICS COMMAND PACKET 
6123 037600 +16PACKET: ;COMMAND PACKET FOR TEST 
6124 037600 100004 WORD 100004 {WRITE CHARACTERISTICS COMMAND, WITH ACK 
6125 037602 037610 "WORD ‘T16DATA ADDRESS OF CHARACTERISTICS BLOCK 
6126 037604 000000 "WORD 0 
6127 037606 000012 “WORD 10. ;MESSAGE PACKET SIZE 
6129 037610 T16DATA: ;CHARACTERISTICS DATA BLOCK 
6130 037610 037622 _WORD T16BFR ;ADDRESS OF MESSAGE BUFFER 
6131 037612 "WORD 0 
6132 037614 000024 “WORD 20. ;LENGTH OF MESSAGE BUFFER 
6133 037616 000000 “woRD 0 JESS, ENB.EAI ERI 
6134 037620 000000 "WORD 0 }EXTENDED FEATURES WORD 
6136 
6137 ;MESSAGE BUFFER 
6139 037622 T16BFR: :BEGIN MESSAGE BUFFER 
6140 037622 000000 WORD 0 MESSAGE T 
6141 037624 000000 “WORD 0 }DATA FIELD LENGTH 
6142 037626 000000 “WORD 0 
6143 037630 000000 "WORD 0 ixSTO 
6144 037632 000000 "WORD 0 ixsT1 
6145 037634 000000 "WORD 0 ixsT2 
6146 037636 000000 “WORD 0 ixSTS 
6147 037640 000000 "WORD 0 iX$T4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 


Fie 
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SEQ 0148 

TI6BFSTA: .BLKB 6. ;READ STATUS AND WRITE FIFO BUFFER 
T16BEND : END OF MESSAGE BUFFER 
; 
;WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
416PK2: 

7 P.WRTSUB!P. ACK ;WRITE SUBSYSTEM WITH ACK 

“WORD  Ti6DT2 ;LOW ADDRESS OF DATA BLOCK 

“WORD 0 }HIGH ADDRESS OF DATA BLOCK 

“WORD 10. ;MINIMUM MESSAGE PACKET SIZE 
116072: ;DATA BLOCK 

‘BYTE 0 ;BSELO 

BYTE 0 ;BSEL1 

0 ;SEL2 
BLKB 64. ‘WRITE FIFO DATA OUTPUT BUFFER 
ENDTST 


L10053: 
TRAP CSsETST 
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SEQ 0149 
TEST 6: FIFO EXERCISER 


$373 -SBTTL TEST 6: FIFO EXERCISER 
3*e 
$373 ; TEST DESCRIPTION: 
3 
6175 ; This test uses the Write Subsystem Memory command to 
6176 ; verify the controller's FIFO and and aesoc: ated status and 
6177 3 control logic. 
6178 : 
6179 ; TEST STEPS: 
6180 3 
6181 ; REPEAT FOR LOOPCNT 
6182 3 BEGIN 
6183 : Do Subtest 1 - FIFO Initialize status test 
6184 : Do Subtest 2 - FIFO Write Single Byte test 
6185 3 Do Subtest 3 - FIFO Write Multiple ‘Bytes test 
6186 3 Do Subtest 4 - FIFO orev. ILW ——— test 
6187 : Do Subtest 5 - FIFO Input Ready t 
e388 ’ Do Subtest 6 - FIFO Verify Reset fifo test 
8 
6190 8-- 
6191 
6192 
6193 ys TH 5 4 BGNTST 
6198 037766 012700 046216 MOV @TST17ID,RO sASCII MESSAGE 10 IDENTIFY TEST 
6199 037772 004737 016550 JSR PC, TSTSETUP 300 INITIAL TEST SETUP 
6200 037776 012737 000012 002216 MOV #10. ,LOOPCNT }PERFORM 10 ZTERATIONS 
6201 040004 004737 017334 JSR PC, KTOFF ;SHUT OFF MEMORY 
6202 040010 005037 003136 CLR KTENABLE ;REALLY SHUT DOWN K KT-11 
6203 040014 T17LOOP: 
6204 
6205 
6207 -SBTTL TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
6208 tee 
6209 ; TEST 6: SUBTEST 1: 
6210 3 
esi3 3; SUBTEST DESCRIPTION: 
3 
6213 ; This test verifies, by using the Read Status select code, 
6214 8 that the FIFO status is in the correct initiel state after 
6215 3 the controller is initialized (Input Ready TRUE, 
6216 F Output Ready and Date In Miss FALSE). These status 
6217 3 signals are checked the controller's self-test 
6218 3 sequence, so this subtest is actually more of a partial 
rest 3 check of the Read Status function than the FIFO status. 
$ 
6221 ; TEST STEPS: 
6222 $ 
6223 3 BEGIN 
6224 3 Write to TSSR to soft initialize 
6225 3 Do a WRITE CHARACTERISTICS to setup a message buffer 
6226 3 Do a WRITE SUBSYSTEM Read Status 
6208 Tf Output Reedy NOT=0 Then Pring Error 
3 8 rint Error 
rx 34 $ no” Data In Miss NOT=0 Then Print Error 
F 


Hie 
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SEQ 0150 
TEST 6: SUBTEST 1: FIFO INITIALIZE STATUS TEST 
6231 t-- 
6232 040014 BGNSUB 3//////////// BEGIN SUBTEST /////////7/ 
040014 T6.1: 
6233 040014 104402 TRAP C$BSUB 
6234 3 Write to TSSR register to soft initialize the controller 
6235 040016 S$: 
040016 004737 016034 “es PC ,SOFINIT sWRITE TO 13% TO Sort INITIALIZE 
6237 040022 103405 Ss 10$ +r we SOFT INIT OKAY 
6238 040024 010001 RO,R1 VE CONTENTS OF TSSR 
6239 040026 ERRDF ERRNO, SFIERR, SFIMSG tSEVICE FATAL DURING INIT 
040026 104455 RAP CSERDF 
040030 001130 "WORD 600 
040032 003654 .WORD SFIERR 
040034 012074 -WORD SFIMSG 
6240 3 Do a WRITE qe ACTERISTICS to setup a buffer 
6241 040036 005037 002222 10$: CLR FATFLG 3CL EAR F FAT ERROR FLAG 
6242 040042 012704 047610 MOV $T17PACKET ,R4 iGET THE ADDRESS OF COMMAND PACKET 
6243 040046 004737 010662 JSR PC, WRTCHR ;00 WRITE ovat hae COMMAND 
6244 040052 FORCERROR 42$ }2 @aDFORCE ERROR IF FORCER=1 
6245 040066 103407 BCS 50$ ;BR IF CARRY SET (008 RETURN) 
6246 040070 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
6247 040072 NEXT .ERRNO 
6248 040072 42$: ERRDF  ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040072 104455 TRAP CSERDOF 
040074 001131 -WORD 601 
040076 046235 -WORD T17SSR 
040100 012106 -WORD PKTSSR 
6249 040102 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6259 040106 50$: CKLOOP ;LOOP ON ERROR, IF FLAG ser 
som 040106 104406 CS$CLP1 
6252 3 Do a Write Fipexates READ STATUS 
6253 040110 004737 047374 JSR PC,1T17 ;SETUP PACKET FOR READ STATUS 
6254 040114 012704 047760 MOV OT17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
6255 040120 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
6256 040124 004737 016376 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
6257 040130 FORCERROR 62$ iy . CE ERROR IF FORCER=1 
6258 040144 103407 BCS 70$ 3;BR IF CARRY SET ($008 RETURN) 
6259 040146 010001 MOV RO,R1 sSAVE CONTENTS OF T 
6260 040150 NEXT .ERRNO 
6261 040150 62$: ERRDF  ERRNO,T173SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
040150 104455 TRAP CSERDF 
040152 001132 -WORD 602 
040154 046336 on T173SSR 
040156 012106 PKTSSR 
6262 040160 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6263 040164 70$: CKLOOP ;LOOP ON ERROR, IF FLAG ser 
040164 104406 CS$CLP1 
6264 3 Set WORDS 0-7 of expd message buffer = to recv since eek Sentien 
6265 040166 004737 047556 JSR PC, TI7SETEXP sSET WORDS 0-7 EXPD=RECV 
6266 040 72 012701 046012 MOV OTI7EXSTA,R1 }GET EXPECTED READ STATUS 
6267 Of "6 012702 047652 MOV @T17BFSTA,R2 ;GET RECV READ STATUS 
6268 04. 22 012221 MOV (R2)+,(R1 3+ sSET E 8 = RECV TEMP 
011211 MOV CR2),(R1) ;SET EXPO WORD #9 = RECV TEMP 
6270 040206 000020 BIS . INRDY,(R1) sSET EXP INPUT READY= TRUE 


@ 
6271 040212 042711 000040 BIC #S2.OUTRDY, (Ri) sSET EXP OUTPUT READY= FALSE 


lie 
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6272 
7 


040216 


042711 


104456 
001133 
046555 
012410 
104406 
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002222 
017242 


90%: 


BIC #S2.DIM,(R1) ;SET EXP DATA IN MISS = FALSE 

If Input Ready NOT=1 then Print trrer 

If Ready NOT=0 or Date in en NOT=0 Then age Error 
FOR CKMSG2 


CLR or HIGH RECV ADDRESS 

MOV T17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 
MOV OTL TEXP RD sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC ,CKMSG2 sEXPD EQUAL RECV? 

FORCERROR 82¢,NOTSSR :aaD 

t, 90% ;BR IF YES 


ERRNO, T171CMP ,MSGSTAT sREPORT ERROR 
TRAP CSERHRD 
-WORD 603 
-WORD 1171CMP 
MSGSTAT 


. WORD 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CSCLPl 
ENDSUB s////////1/// END SUBTEST ////////// 

L10057: 

TRAP CsESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 160$ sBRANCH IF NOT 
JSR PC, CKDROP sTRY TO DROP THE UNIT 


-SBTTL TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


; TEST 6: SUBTEST 2: 
; SUBTEST DESCRIPTION: 


BEGIN 


; 
: 
: 
é 
; 
‘ 
; 
3 
3 
: 
3 
; 
; TEST STEPS: 
: 
; 
; 
; 
’ 
; 
; 
i 
: 
; 
; 


This — yy tly 9p te “ the FIFO ge corvestiy 
pess ea si e Fey e from © output. For eac 

of 256 data velues (0-377 octal 1D the Cel loulan is done: 

> eitian FIFO stetus is checked 

The Write FIFO function, specifying a count of 

one te to be written is executed. 

Read Status is executed end FIFO status is checked. 
yr Ata Bs, is executed and the date and final status 
is check 


BA ve 


pics to TSSR to soft initialize 


If os Ready NOT=1 Ray Print Error 
If Output Re NOT=0 Then Print Error 
If Date In Miss NOT=0 Then Print Error 


REPEAT FOR DATA FROM O TO 377 OCTAL 
BEGIN 


SE@ 0151 


J1le 
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SEQ 0152 


6322 3 Do ea Write Subsystem WRITE NPR to set tape direction out 
6323 8 Do ea Write Subsystem WRITE firo with byte count equal to 1 
6324 3 Do a Write Subsystem READ STA 
6325 ; If Input Ready NOT=1 Then Print Error 
6326 : If Ready NOT=1 Then Print Error 
6327 3 If Date In Miss NOT=0 Then Print Error 
6328 ; Do Write yp ys READ FIFO with byte count equal to 1 
6329 : If Dete read FIFO ¥ 1f9 Dete sent Then Print Error 
6330 3 Do ea Write Sscyetes READ STATUS 
ets $ + Input goer aot e3 Then A ow 
: Output 5 hen Print Error 
6333 ; If Date In Mise NOT=O0 Then Print Error 
6334 3 END 
a a. 
jun 
6337 040304 BGNSUB 3//////////// BEGIN SUBTEST ////////// 
040304 176.2: 
6338 040304 104402 TRAP Cs$BSUB 
6339 Write to TSSR register to soft initialize the controller 
6340 040306 5: 
6341 040306 004737 016034 JSR PC, SOFINIT ;sWRITE TO TSSR TO oo INITIALIZE 
6342 040312 103405 BCS 10% ;BR IF SOFT INIT = 
6343 040314 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6344 040316 ERRDF ERRNO, SFIERR,SFIMSG iDEVICE FATAL DURING INIT 
040316 104455 TRAP CSERDOF 
040320 001133 . WORD 603 
040322 3654 -WORD SFIERR 
040324 012074 -WORD SFIMSG 
6345 3 Do a aa: ™ SS TERISTICS to setup ea mess buffer 
6346 040326 005037 002222 10$: CLR FLG ;CLEAR FAT ERROR FLAG 
6347 040332 012704 047610 MOV OTL IPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 
6348 040336 004737 010662 JSR PC,WRTCHR ;00 WRITE CHARACTERISTICS COMMAND 
6349 040342 FORCERROR 42$ j20 @aDFORCE ERROR IF FORCER=1 
6350 040356 103407 BCS 50% ;BR IF CARRY SET (e009 RETURN) 
6351 040360 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
6352 040362 NEXT . ERRNO 
6353 040362 42%: ERRDF  ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040362 104455 TRAP CSEROF 
040364 001134 -WORD 604 
366 046235 —_ T17SSR 
040370 012106 PKTSSR 
6354 040372 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6355 040376 50$: CKLOOP sLOOP ON ERROR, IF FLAG ser 
040376 104406 CsCLPl 
6356 F Do a Write Ftexgte READ STATUS 
6357 040400 004737 047374 JSR PC,117 sSETUP PACKET FOR READ STATUS 
6358 040404 012704 047760 MOV OT17PK2 ,R4 3;GET wits SUBSYSTEM COMMAND PACKET 
6359 040410 010465 000000 MOV R4,TSDBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 
6360 040414 004737 016376 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 
6361 040420 FORCERROR 62% ae0r once ERROR IF FORCER=1 
6362 040434 103407 BCS 70$ ;BR IF CARRY SET (GOOD RETURN) 
6363 040436 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6364 040440 NEXT. 
6365 040440 62%: ERROF ERRNO, 7173SSR,PKTSSR s;sDEVICE FATAL SSR FAILED TO SET 
040440 104455 TRAP CSEROF 
040442 001135 . WORD 605 


K1e 
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SEQ 0153 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST : 

040444 3 . WORD T173SSR 
040446 012106 .WORD PKTSSR 

6366 040450 005237 002222 INC FATFLG ser FATAL ERROR FLAG 

6367 040454 70$: CKLOOP LOOP ON ERROR, IF FLAG Ser 
040454 104406 CSCLPl 

6368 : Set WORDS 0-7 of ose message buffer = to wgey since not soauned 

6369 040456 004737 047556 JSR » TI7SETE 3SET 0-7 EXPD=RECV 

6370 040462 012701 12 MOV @T17EXSTA,R1 iGET E READ STATUS 

6371 040466 012702 047652 MOV $T17BFSTA,R2 ;GET RECV READ STATUS 

6372 040472 012221 MOV (R2)-,(R13« SET 08 = RECV TEMP 

6373 040474 011211 MOV 2),¢R1) ;SET E @9 = RECV TEMP 

6374 040476 711 000020 BIS _INROY,(R1) sSET EXP INPUT READY= TRUE 

6375 040502 042711 000040 BIC S2.OUTRDY,(R1) 3SET EXP OUTPUT READY= FALSE 

6376 040506 042711 000200 BIC #S2.D0IM,(R1) SET EXP DATA IN MISS = FALSE 

6377 , If Input Ready NOT=1 then Print berer 

6378 3 If Output Ready NOT=0 or Date in Miss NOT=0 Then Print Error 

6379 040512 CLR sHIGH RECV ADDRESS FOR CKMSG2 

6380 040514 012701 7632 MOV $T17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 

6381 012702 045772 MOV OT17EXP ,R2 sEXPD ADDRESS 

6382 012703 24 MOV 920. ,R3 NUMBER OF BYTES TO COMPARE 

6383 040530 737 011540 JSR PC, sEXPD EQUAL RECV? 

6384 040534 FORCERROR 82$,NOTSSR :a@a0 

6385 040544 103404 BCS 90$ ;BR IF YES 

6386 040546 NEXT. 

6387 040546 82%: ERRNO, 7171CMP ,.MSGSTAT sREPORT ERROR 
040546 1 TRAP CSERHRD 
040550 001136 -WORD 606 
040552 555 -WORD 1171CMP 
040554 012410 . WORD MSGSTAT 

6388 040556 90$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

6389 040556 104406 TRAP CS$CLP1 

6390 ; Repeat for DATA from 0 to 377 

6391 040560 012737 000000 002314 MOV #0,DATA + FIRST DATA 

6392 040566 100$: EAT LABEL 

6393 3 Do a Write Subsystem WRITE NPR to os direction out 

6394 040566 012700 1 MOV ONP .OUT ,RO oseT th DIRECTION OUT 

6395 040572 737 047436 JSR PC,117 i SETUP T17PK2 FOR WRITE 

6396 040576 012704 047760 MOV OT17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND P 

6397 010465 000000 MOV R4, TSDB(RS) ;SET THE PACKET SS TO EXECUTE 

6396 004737 016376 JSR PC, CHKTSSR ;WAIT FOR m. - TO SET 

6399 040612 F 102% it @aDFORCE ERROR IF FORCER=1 

6400 103407 BCS 105$ 3;BR IF CARRY SET (6000 RETURN) 

6401 040630 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6402 040632 NEXT . ERRNO 

6403 040632 102%: ERROF ERRNO, 7174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
040632 104455 TRAP CSEROF 
040634 001137 7 
040636 046403 . WORD 7174SSR 
040640 012106 .WORD #PKTSSR 

6404 040642 005237 002222 INC FATFLG 3;SET FATAL ERROR FLAG 

6405 040646 105$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
040646 104406 TRAP CSCLPl 

6406 3 Do e Write Subsystem WRITE FIFO with byte cure equel to 1 

6407 040650 012700 000001 MOV #1,R0 sWRITE 1 BYTE 

6408 040654 012701 002314 MOV @OATA,R1 3sFIFO VAITE DATA ADDRESS 

6409 737 047462 JSR PC, 71 7WFIF sSETUP T17PK2 FOR WRITE FIFO 


Lie 
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TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 
047760 
000000 
016376 


107%: 
002222 


047374 
047760 


000000 
016376 


112$: 


132%: 
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MOV @T17PK2,R4 

MOV R4, TSDBC(RS) 

JSR PC: CHKTSSR 

F 107% 

BCS 110% 

MOV RO, 

NEXT * 

ERRDF  ERRNO,T17SSSR,PKTSSR 
NC FATFLG 


JSR PC,117 

MOV OTi7PK2,.R4 

MOV R4, TSDB(RS) 

JSR *CHKT 

F 112% 

BCS 120$ 

MOV RO,R1 

NEXT . ERRNO 

ERRDF ERRNO,T173SSR,PKTSSR 
INC FATFLG 

CKL 

Set WORDS 0-7 of e 

JSR PC, TI7SETE 

MOV OTI7EXSTA, RI 

MOV OT176FSTA 

MOV (R2)+, (RI S- 

MOV (R2),¢R1) 

BIS @S2. INRDY,(R1) 

BIS @52. OUTRDY, (Ri) 

BIC #52 DIM. CRi) 

+ Input Re ay Ores then Print 
CLR 

MOV OT17BFR,R1 

MOV OT17EXP RO 

MOV 620. .R3 

JSR PC, CKMSG2 

FORCERROR 132¢ ,.NOTSSR 
BCS 140% 

NEXT . ERRNO 

ERRHRD ERRNO,T173CMP ,MSGSTAT 


SEQ 0154 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET_ THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


@aDFORCE ERROR IF 
:BR IF CARRY SET (GOOD RETURN 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


— R=] 


cs 
. WORD 
-WORD 1175SSR 
-WORD PKTSSR 
Hy FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG +r. 
CsCLP1 


sSETUP PACKET FOR READ Hate 


PACKE 
sWAIT FOR B -- TO SET 


yor IF Chany’ Se 7. (6000 ys 
SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


— 


CS$E€ROF 
-WORD 609 
-WORD 1173SSR 
-WORD PKTSSR 
SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG ; 
TRAP CSCLPl 


recy since not testing 
sSET WORDS 0-7 EXPD=RECV 


sSET WORD #6 = RECV TEMP 
sSET WORD #9 = RECV TEMP 
sSET EXP INPUT READY= 1 
sSET OUTPUT READY= 1 


RECV ss OR 
ne RECV ADDRESS FOR CKMSG2 
;NUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3;a@aD 

;8R IF YES 

sREPORT ERROR 
TRAP CSERHRD 
-WORD 610 
.WORD 1T173CMP 
-WORD MSGSTAT 


Mile 
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SEQ 0155 
TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 

6453 041114 140$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

ea3e 041114 104406 TRAP C$CLP1 

6455 ; Do Write Subsystem READ FIFO with byte count equal to 1 

6456 041116 012700 000001 MOV e set READ BYTE COUNT 

6457 041122 004737 047516 JSR PC, Le 4 } SETUP T17PK2 FOR READ FIFO 

6458 041126 012704 047760 MOV Ti 7PK2 +3 WRITE SUBSYSTEM COMMAND P 

6459 041132 010465 000000 MOV R4, 7s0BtRS) ;SET THE PACKET ADDRESS TO EXECUTE 

6460 041136 004737 016376 JSR PC; CHKTSSR ;WAIT FOR RA. TO SET 

6461 041142 FORCERROR 142$ ja @aDF ORCE ERROR IF FORCER=1 

6462 041156 103407 BCS 150$ 3;BR IF CARRY SET (e008 RETURN) 

6463 041160 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6464 041162 NEXT .ERRNO 

6465 041162 142%: ERRDF ERRNO,1176SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
041162 104455 TRAP CSERDF 
041164 001143 -WORD 611 
041166 046512 om T176SSR 
041170 012106 PKTSSR 

6466 041172 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6467 041176 150$: CKLOOP sLOOP ON ERROR, IF FLAG zi. 
041176 104406 C$CLP1 

3 Set WORDS 0-7 of ong message buffer = to recv since a, cenit 

6469 041200 004737 047556 JSR PC, TI7SETEX sSET WORDS 0-7 EXPD=RECV 

6470 041204 012701 046012 MOV OTI7EXSTA,R1 3;GET EXPECTED READ STATUS 

6471 041210 012702 047652 MOV @T17BFSTA,R2 3GET RECV READ STATUS 

6472 041214 013721 002314 MOV DATA, (R1)-+ sSET EXPD WORD 68 = COUNT DAT 

6473 041220 011211 MOV CR2),CR1) sSET EXPD WORD #9 = RECV (NOT * TESTING) 

6474 3 If Date read from FIFO ~ to Date sent Then Print Error 

6475 3 The date is in WORD 8 of the aocsene byt buffer 

6475 041222 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

6477 041224 012701 047632 MOV #T17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 

6478 041230 012702 045772 MOV OTI7EXP ,R2 sEXPD SS 

6479 041234 012703 000022 MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 

6480 041240 004737 011540 JSR PC, CKMSG2 sEXPD EQUAL RECV? 

6481 041244 FORCERROR 152$,NOTSSR 3;a@a0 

6482 041254 103404 BCS 160% ;BR IF YES 

6483 041256 NEXT. 

6484 041256 152$: ERRHRD ERRNO, 1T172CMP ,.MSGSUB sREPORT ERROR 
041256 104456 TRAP CSERHRD 
041260 001144 «WORD 612 
041262 046637 -WORD 1172CMP 
041264 014002 -WORD MSGSUB 

6485 041266 160$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

noes 041266 104406 TRAP CsCLPl 

6487 3 Do a Write Sgoxates READ STATUS 

6488 041270 004737 047374 JSR PC,117 sSETUP PACKET FOR READ STATUS 

6489 041274 012704 047760 MOV $T17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

6490 041300 010465 000000 MOV R4,TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 

6491 041304 004737 016376 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

6492 041310 FORCERROR 162% anor once ERROR IF FORCER=1 

6493 041324 103407 BCS 170% ;BR IF CARRY SET (GOOD RETURN) 

6494 041326 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6495 041330 NEXT. 

6496 041330 162$: ERRDF ERRNO,1T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
041330 104455 TRAP CSERDOF 


041332 001145 -WORD 615 


Nie 
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TEST 6: SUBTEST 2: FIFO WRITE SINGLE BYTE TEST 


6497 
6498 


INC FATFLG 
CKLOOP 


Set WORDS 0-7 of ex mess buffer = 
JSR Ti7setexp> "*SS09* PUT E 


If Input Ready NOT=1 


«WORD 1173SSR 


-WORD PKTSSR 
;SET FATAL ERROR FLAG 

;LOOP ON ERROR, IF FLAG SET 

TRAP CS$CLP1 

ecv since not testing 
T WORDS "O- 7 EXPD=RECV 

EXPECTED = STATUS 
T easy READ STATUS 


EXP OUTPUT READ 
EXP DATA IN MISS = O 


If Output R NOT=0 or Data in Miss NOT=0 Then Print Error 
~ in ten FOR 


@T17BFR,R1 
@T17EXP ,R2 
#20. ,R3 
FORC 
BCS 180% 
NEXT . ERRNO 
ERRHRD ERRNO, 1T174CMP ,MSGSTAT 


172$,NOTSSR 


DATA 
DATA, #377 
205% 
100$ 


TST FATFLG 
BEG 260% 
JSR PC .CKDROP 


ADORE 
sNUMBER OF BYTES TO COMPARE 
SEXPD EQUAL RECV? 


;aaD 
iBR IF YES 


sREPORT ERROR 
TRAP 


. WORD 
. WORD 
. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 
:aa0 
iGET NEXT vest DATA 
sDONE O TO 377? 
;BR IF YES 
300 ANOTHER TEST PATTERN 
344//44//1//7 END SUBTEST S///////4/ 
L10060: 
TRAP CsESuUB 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
i TRY TO OROP THE UNIT 


-SBTTL TEST 6: SUBTEST 3: FIFO WRITE MATIPLE BYTES TEST 


TEST 6: SUBTEST 3: 
; SUBTEST DESCRIPTION: 


& svotest verifies the ability of the FIFO to correctly 


e multiple dete bytes from ; 


to output. 
pest suite sequence is done a. YR. E.. date petterns 
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TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


016034 


002222 
047610 
010662 


Ulee 
- 


SEQ 0157 


and byte counts from 2 to 64. 
qni tien FIFO. status is checked 


1. 
2. The Write FIFO function. 
3. Read Status is executed and FIFO status is checked. 
4. Read FIFO is executed and the date and final status 
is checked. 
TEST STEPS: 
BEGIN 
Write to TSSR to soft initialize 


If Output Re NOT=0 Then Pri nt Error 
he ~ In Miss + dhe _ Print _——. 


t Word NOT= hen Print Err 
REPEAT FOR DATA O TO ys °377" ae 70-0," FLOATING. 1'S,0'S AND ALL 1'S/0'S 


REPEA 
BE 


Sg 


o 
VV V2 VO waa VOOOZ 


T FOR BYTE COUNT 2 


e Write Subsystem WRITE NPR to set tape direction out 
e Write Subsystem WRITE FIFO 


Output Reedy NOT<-1 Then Print Error 

Deta In Miss NOT=0 Then Print Error 

Lest Word NOT=O Then Print Error 

Write amaotes READ FIFO 

Date read from FIFO NOT= te Data sent Then Print Error 
e Write Subsystem READ STATUS 

Input "lost dt a pr ine hes 

Output R s hen rin rror 

Date In Miss NOT=0 Then Print Error 

Lest Word NOT=0 Then Print Error 


BGNSUB ALAA Cae Sates SAAS ASASSA 
"TRAP ss C$BSUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOFINIT sWRITE TO TSSR TO = INITIALIZE 

BCS 10$ ren IF SOFT INIT oy 

MOV RO,R1 SAVE CONTENTS OF TSSR 

ERROF ERRNO, SFIERR,SFIMSG ;DEVICE FATAL DURING par 

TRAP CS$ERDF 

-WORD 614 
“WORD SFIERR 
-WORD SFIMSG 

Do a ee | Te enISTICS to setup e er 

CLR FLG sCLEAR "FAT RTAL ERRO ERROR “FL AG 

MOV O11 PACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 

JSR PC,WRTCHR :D0 WRITE evonta okt COMMAND 

FORCERROR 42% it . @a0FORCE ERROR IF FORCER=1 

BCS SO¢ sB8R IF CARRY SET (GOOD RETURN) 
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6595 
6596 


6634 
6635 
6636 


041570 
04 


010001 


104455 
001147 
0462 


103404 
104456 
001151 
046555 
012410 
104406 


MACRO VOS.03 Tuesday 28-Apr-87 08:29 Page 84-9 
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 


002222 


047374 
047760 


000000 
016376 


000024 
011540 


42$: 


70$: 


82$: 


MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF  ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CS$ERDF 
-WORD 615 
.WORD 117SSR 
.WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG ser conus 

Do a Write Subsystem READ STATUS 

JSR PC,1T17 ;SETUP PACKET FOR READ STATUS 

MOV $T17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC, CHKTSSR sWAIT FOR SSR TO SET 


FORCERROR 62% ;@@DFORCE ERROR IF FORCER=1 
BCS 70$ ;BR IF CARRY SET (008 RETURN ) 
oN e RO,R1 ; SAVE CONTENTS OF TSSR 


ERRNO, 1T173SSR,PKTSSR sDEVICE FATAL SSR renee ye 


° 61 
. —_ T173SSR 
PKTSSR 


INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP LOOP ON ERROR, IF FLAG SET sins 
Set WORDS 0-7 of e message wnt = to wgey since a cenuien 
BC TI7SETEXP =RECV 
MOV OTI7EXSTA,RI iGET EXPECTED. READ STATUS 
MOV OT17BFSTA.R2 ;GET RECV RE ATUS 
MOV (R2)+,(R13- 3SET EXPD RD 36 = RECV TEMP 
MOV (R2),CR1 3SET EX 9 = RECV TEMP 
BIS _INRDY,(R1) ;SET EXP INPUT READY= 1 
BIC @S2.OUTRDY, (R1) ;SET EXP OUTPUT READY= 0 
BIC $52 .DIM, (Ri) ;SET EXP DATA IN MISS = O 
BIC @S2.ILW.(R1) ;SET EXP LAST WORD (ILW)=0 


If Input Ready NOT=1 then Print eer 
If Output Ready NOT=0 or Date in Miss NOT=0 Then Print Error 
If Last Word NOT=0 Then Print Error 

CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
iLO RECV ADDRESS FOR CKMSG2 


MOV OT17EXP ,R2 Ss 

MOV #20. ,R3 ;NUMBER OF BYTES TO COMPARE 
JSR PC, CKMSG2 sEXPD EQUAL RECV? 
FORCERROR 82¢ ,NOTSSR ;aa0 

ss, 90% ;BR IF YES 


. ERRNO 
ERRHRD ERRNO,1T171CMP,MSGSTAT sREPORT ERROR 
TRAP CSERHRD 
«WORD 617 


-WORD  1171CMP 

-WORD MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP CsCLP1 


SEQ 0158 


D13 
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SEQ 0159 
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
6637 
6638 ; REPEAT FOR BYTE COUNT 2 TO 64 DECIMAL 
6639 i TSTFLAG =1 FOR TNORETENT TEST PATTERN 
6640 ; => FOR DECREMENT TEST PATTERN 
5 041776 012737 coo001 oco2sis ' waite TEST PATTERN FLAG 
» TSTFL L 
£828 Sadcoe 95$: P 
6644 042002 012737 000002 002312 MOV $2, COUNT ;GET FIRST BYTE COUNT 
6645 042010 100$: 
6646 3 ey e Write Subsystem WRITE NPR to.2¢ ot ieee? direction out 
6647 042010 012700 000100 @NP . OUT RO T TAPE DIRECTION OUT 
6648 042014 004737 047436 oR PC,717 oFT UP T17PK2 FOR WRITE 
6649 042020 012704 047760 MOV OTI7PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
6650 042024 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADORESS TO EXECUTE 
6651 042030 004737 016376 JSR PC; CHKTSSR ;WAIT FOR SSR TO SET 
6652 042034 FORCERROR 102$ [ROOF ORCE ERROR IF FORCER=1 
6653 042050 103407 BCS 105$ :BR IF CARRY SET (GOOD RETURN) 
6654 042052 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
6655 042054 NEXT . ERRNO 
6656 042054 102$: ERRDF ERRNO,T174SSR,PKTSSR § ;DEVICE FATAL SSR FAILED TO SET 
042054 104455 TRAP CSERDF 
042056 001152 .WORD 618 
042060 "WORD 1174SSR 
042062 012106 "WORD PKTSSR 
6657 042064 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6658 042070 105¢:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
042070 104406 C$CLP1 
6659 : Doe Write Subsystem WRITE FIFO 
042072 004737 047536 JSR Be,T EXP ;CLEAR EXPD BUFFER 
6661 042076 012701 046114 MOV oti TuFDATA, R1 ;EXPD WRITE FIFO DATA BUFFER 
6662 042102 013702 002312 MOV COUNT ,R TEST PATT ERN SIZE 
6663 042106 022737 000001 002316 CMP $1, TSTFLAG ;INCREMENT PATTERN THIS TIME THRU? 
6664 042114 001005 BNE 1153 i8R IF NO 
6665 042116 005000 CLR RO sINCREMENT TEST PATTERN 
042120 110021 110$: MOVB  RO,(R1)- sSTORE INCREMENT TEST BYTE 
6667 042122 INC RO ;SET NEXT PATTERN 
0421 302 DEC ; DONE 
6669 042126 003374 BGT 110$ ;BR IF NO 
6670 042130 022737 000002 002316 115%: CMP $2, TSTFLAG ;DECREMENT PATTERN THIS TIME THRU? 
6671 042136 001006 BNE 125$ BR IF 
6672 042140 012700 000377 MOV $377,RO DECREMENT TEST PATTERN 
6673 042144 110021 120$: MOVB  RO,(R1)- }STORE DECREMENT TEST BYTE 
6674 042146 300 DEC RO SET NEXT PATTERN 
6675 042150 302 DEC R2 : 
6676 042152 003374 BG 120$ :BR IF NO 
6677 042154 022737 000003 002316 125%: CMP $3, TSTFLAG i TSTBLK PATTERNS THIS TIME THRU? 
6678 042162 001 BNE 135 BR 
6679 042164 012700 002754 MOV OTSTBLK,RO BT OAT 1'$70°S ETC. TEST TABLE 
6680 042170 112021 130$: MOVB (RO)+,(R1)- sSTORE A TSTBLK BYTE 
6681 042172 302 DEC R2 3 DONE 
6682 042174 003375 BGT 130% ;8R IF NO 
6683 042176 135$: 
6684 042176 013700 002312 MOV COUNT ,RO :FIFO BYTE COUNT 
6685 042 012701 046114 MOV 6T17WEDATA,RI ;FIFO WRITE DATA ADDRESS 
6686 042 737 047462 JSR PC, T17WFIF ;SETUP T17PK2 FOR WRITE FIFO 
6687 042212 012704 047760 MOV oTi7PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
6688 042216 010465 000000 MOV R4, TSOBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 


E15 
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SE@ 0160 


6689 042222 004737 016376 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

6690 042226 F 142$ ;@@DFORCE ERROR IF FORCER=1 

6691 042242 103407 BCS 150$ ;BR IF CARRY SET (6000 RETURN) 

6692 244 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

6693 042246 NEXT . ERRNO 

6694 246 142%: ERRDF ERRNO,T17S5SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042246 104455 TRAP CSERDF 
042250 001153 ; . WORD 19 

252 046446 2 -WORD 1175SSR 

042254 012106 -WORD PKTSSR 

6695 256 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6696 042262 150$: CKL ;LOOP ON ERROR, IF FLAG ser 

sour 042262 104406 CsCLP1 

6698 8 Do e Write Subsystem READ STATUS 

6699 042 004737 047374 JSR PC,1T17 ;SETUP PACKET FOR READ STATUS 

6700 042270 012704 047760 MOV OT17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

6701 042274 010465 000000 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

6702 042 004737 016376 JSR PC ,CHKTSSR ;WAIT FOR SSR TO 

6703 042304 F 157% @aDFORCE ERROR IF FORCER=1 

6704 042 103407 BCS 160$ ;BR IF CARRY Y SET ($008 RETURN) 

6705 042322 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6706 042324 NEXT 

6707 042324 157$: ERRNO, 1T173SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
042324 104455 TRAP CSEROF 
042326 001154 -WORD 620 
042330 046336 .WORD 1173SSR 
042332 012106 -WORD PKTSSR 

6708 042334 37 002222 INC FATFLG +1 FATAL ERROR FLAG 

6709 042340 160$: CKL LOOP ON ERROR, IF FLAG sey 

ene 042340 104406 CSCLP1 

6711 3 Set WORDS 0-7 of one message buffer = to recw since not testing 

6712 042342 004737 047556 JSR PC, T1I7SETE :SET WORDS 0-7 EXPD=RECV 

6713 042346 012701 1 MOV OTI7EXSTA,R1 ;GET EXPECTED READ STATUS 

6714 042352 012702 047652 MOV $T17BFSTA,R2 ;GET RECV READ STATUS 

6715 042356 012221 MOV (R2)+,(R1)« ;SET E€ WORD #8 = RECV TEMP 

6716 042360 011211 MOV (R2),(R1) sSET E WORD #9 = RECV TEMP 

6717 042362 052711 000020 BIS @S2.INRDY,(R1) sSET EXP INPUT READY= 1 

6718 042366 052711 000040 BIS @S2.OUTRDY,(R1) 3SET OUTPUT READY= 1 

6719 042372 042711 000200 BIC @S2.DIM,(R1 ;SET EXP DATA IN MISS = O 

6720 042376 042711 900100 e's a ILwW,CR1) SET EXP LAST WORD (CILW)=0 

6721 , If Input Ready NOT=1 then Print brrer 

6722 3 f Output Ready NOT=2 or Dete in Miss NOT=0 Then Print Error 

6723 042402 tir RO sHIGH RECV n't FOR 

6724 042404 012701 047632 MOV OT17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 

6725 042410 012702 045772 MOV OT17EXP ,R2 sEXPD ADDRE 

6726 042414 012703 24 MOV 920. ,R3 sNUMBER OF BYTES TO COMPARE 

6727 042420 737 011540 JSR ° ;EXPD EQUAL RECV? 

6728 F 162$ ,NOTSSR ;aa0 

6729 042434 103404 BCS 170% ;8R IF YES 

6730 042436 NEXT 

6731 042436 162%: € ERRNO, 7173CMP ,MSGSTAT s;REPORT ERROR 
042436 56 TRAP CSERHRD 
042440 001155 -WORD 621 
042442 733 -WORD T173CMP 
042444 012410 -WORD MSGSTAT 
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SEQ 0161 
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
6732 0424446 170%: CKLOOP sLOOP ON ERROR, IF FLAG SET 
6733 104406 TRAP Csc.Pl 


6734 8 Do Write Subsystem READ FIFO 
MOV ;SET READ BYTE COUNT 


6736 042454 0047 047516 JSR PC, TL 7RFIF sSETUP T17PK2 FOR READ FIFO 

6 042460 012704 047760 OT17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

6738 042464 010465 000000 MOV R4,TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

6739 042470 004737 016376 JSR PC, CHKTSSR ;WAIT FOR B. TO , ee 

6740 042474 F 172% @aDt ORCE ERROR IF FORCER=1 

6741 042510 103407 BCS 180% ;6R IF CARRY SET (008 RETURN) 

6742 042512 010001 RO,R1 ;SAVE CONTENTS OF TSSR 

6743 042514 NEXT . ERRNO 

6744 042514 172$: ERRNO, 7176SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
042514 1 TRAP CSERDF 
042516 001156 -WORD 622 

Si2 . WORD T176SSR 

042522 012106 .WORD PKTSSR 

6745S 042524 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6746 042530 180$: CKLOOP ;LO0P ON ERROR, IF FLAG =r. 

e767 042530 104406 CS$CLP1 

6748 ; If Date read from FIFO NOT= to Dete sent Then Print Error 

6749 042532 005000 CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

6750 042534 012702 046114 MOV @T17WFDATA,R2 ;GET EXPECTED ADDRESS FOR CKMSG2 

6751 042540 012701 047652 MOV @T17BFSTA,AL ;GET RECEIVED ADDRESS FOR CKMSG2 

6752 042544 013703 002312 MOV COUNT ,R3 sNUMBER OF BYTES TO COMPARE 

6753 042550 004737 011540 JSR PC ,CKMSG2 iEXPD EQUAL RECV? 

6754 042554 FORCERROR 192$ ,NOTSSR 3; @aD 

6755 042564 103406 BcS 200$ ;8R IF YES 

6756 042566 NEXT . ERRNO 

6757 042566 013701 002312 192$: MOV COUNT ,R ;GET BYTE COUNT 

6758 042572 ERRHRD ERRNO, T17SCHP, FIFEXP ;REPORT ERROR 
042572 104456 TRAP CS$ERHRD 
042574 001157 -WORDB 623 
042576 047102 -WORD 1175CMP 
042600 012230 .WORD FIFEXP 

6759 042602 200%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 

anes 042602 104406 TRAP C$CLP1 

6761 3 Do a Write Subsystem READ STATUS 

6762 042604 004737 047374 J T17 sSETUP PACKET FOR READ STATUS 

6763 042610 012704 047760 MOV OTi7PK2 RA iGET WRITE SUBSYSTEM COMMAND PACKET 

6764 042614 010465 000000 MOV R4,TSDB(RS) ;SET THE PACKET ADDRESS TO EXECUTE 

6765 042620 004737 016376 JSR PC ,.CHKTSSR ;WAIT FOR SSR TO SET 

6766 042624 FORCERROR 2l12$ = ORCE ERROR IF FORCER=1 

6767 042640 103407 BCS 220% 3;8R IF CARRY SET ($008 RETURN) 

6768 042642 010001 + RO,R1 sSAVE CONTENTS OF TSSR 

6769 042644 NEXT. ERRNO 

6770 042644 212s: ERRDF ERRNO, T173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
042644 104455 TRAP CSERDF 
042646 001160 -WORD 624 
042650 046336 —- T173SSR 
042652 012106 PKTSSR 

6771 042654 005237 002222 INC FATFLG 3;SET FATAL ERROR FLAG 

6772 042660 220%: CKLOOP 3LOOP ON ERROR, IF FLAG oer 
042660 104406 C$CLP1 
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SEQ 0162 
TEST 6: SUBTEST 3: FIFO WRITE MULTIPLE BYTES TEST 
6773 : Set WORDS o- 7 ef e mess buffer = to recy since not testi 
6774 042662 004737 047556 JSR BC. TI7SETEXPS nner CET UoRoS O0y EXPDSRECY ™ 
6775 042666 012701 046012 MOV OTiTEXeTACRi GET EXPECTED READ STATUS 
6776 042672 012702 047652 MOV OT17BFSTA,R2 :GET RECV READ STATUS 
6777 042676 012221 MOV (R2)-,(R13« :SET EXPD WORD #8 = RECV TEMP 
6778 042700 011211 (R2),(R1 sSET EXPD WORD #9 = RECV TEMP 
6779 042702 000020 BIS S2.i .(R1) ;SET EXP INPUT READY= 1 
6780 042706 042711 000040 BIC #52. OUTRDY, (Ri) ;SET EXP OUTPUT READY= 0 
6781 042712 042711 000200 BIC #S2.DIM,(R1) ;SET EXP DATA IN MISS = 0 
6782 042716 042711 000100 BIC #52. ILW,(R1) SET EXP LAST WORD (ILW)=0 
6783 , If Input Ready NOT=i then Print Error 
6784 3 If Output Ready NOT=0 or Data in Miss NOT=0 Then Print Error 
6785 042722 005000 CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 
6786 042724 012701 047632 MOV $T17BFR,R1 LOW RECV ADDRESS FOR CKMSG2 
6787 042730 012702 045772 MOV OT17EXP -R2 sEXPD S 
6788 042734 012703 000024 MOV $20. ,.R3 ;NUMBER OF BYTES TO COMPARE 
6789 042740 004737 011540 JSR PC, CKMSG2 sEXPD EQUAL RECV? 
6790 042744 FORCERROR 232$,NOTSSR ;@a0 
6791 042754 103404 BCS 240% :8R IF YES 
6792 042756 NEXT . ERRNO 
6793 042756 232$: ERRHRD ERRNO,T174CMP,MSGSTAT  ;REPORT ERROR 
042756 104456 TRAP § C$ERHRD 
042760 001161 .WORD 625 
042762 047017 "WORD 1174CMP 
042764 012410 “WORD MSGSTAT 
6794 042766 . 240%:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
042766 104406 TRAP = C$CLP1 
6795 042770 FORCEXIT 250$ ;@aD 
6796 043000 005237 002312 INC COUNT GET NEXT BYTE COUNT 
6797 043004 023727 002312 000077 CMP COUNT , 077 sDONE 0 TO 7 
6798 043012 101002 BHI 250$ i8R IF YES 
6799 043014 000137 042010 JMP 100$ :D00 ANOTHER BYTE COUNT 
6800 043020 005237 002316 250$: INC TSTFLAG GET NEXT TEST PATTERN CODE 
6801 043024 023727 002316 000003 CMP TSTFLAG, #3 ;D0NE INC,DEC,TSTBLK PATTERNS? 
6802 043032 101002 BHI 255$ iBR IF YE 
6803 043034 000137 042002 JMP 95$ 300 ANOTHER TEST PATTERN 
6804 043040 255%: 
6805 043040 ENDSUB 3///4////44/74 END SUBTEST /////////7/ 
043040 L10061: 
043040 104403 TRAP  CSESUB 
6807 043042 005737 002222 TST FATFLG ;ANY FATAL ERRORS ? 
6808 043046 001402 BEQ 260$ ;BRANCH IF NOT 
6809 043050 004737 017242 JSR PC, CKDROP sTRY TO DROP THE UNIT 
6810 043054 260$: 
6811 
6812 
6813 
6614 .SBTTL TEST 6: SUBTEST 4: FIFO Verify ILW Status 
6816 ded 
6817 ; TEST 6: SUBTEST 4; 
3 
6819 3 SUBTEST DESCRIPTION: 
3 
6621 8 This subtest verifies that reading the FIFO when it is 
6822 3 empty causes the Last Word (ILW) status to assert. 


His 
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SEQ 0163 
TEST 6: SUBTEST 4: FIFO Verify ILW Status 
6823 : 
6824 ; TEST STEPS: 
6825 ; 
6826 ; BEGIN 
6827 3 Write to TSSR to soft initialize 
6828 H Do Write Subsystem READ FIFO with byte count equal to 1 
6829 3 Do a Write Subsystem READ STATUS 
6830 : If Input Re NOT= Then Print Error 
6831 ; If Output Ready NOT=0 Then Print Error 
6832 3 If Data In Miss NOT=O0 Then Print Error 
6833 3 If Last Word (ILW) NOT=1 Then Print Error 
es ay 
gee 
6836 043054 BGNSUB 3//////////7// BEGIN SUBTEST ////////// 
043054 76.4: 
6837 043054 104402 TRAP C$BSUB 
68 i Write to TSSR register to soft initialize the controller 
6839 043056 $: 
6840 043056 004737 016034 JSR PC, SOF INIT sWRITE TO TSSR TO sor INITIALIZE 
6841 043062 103405 BCS 10$ ;BR IF SOFT INIT OKAY 
6842 043064 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
6843 043066 ERRDF  ERRNO,SFIERR,SFIMSG s;DEVICE FATAL DURING INIT 
TRAP C$ERDF 
043070 001161 2 625 
043072 003654 -WORD SFIERR 
043074 012074 -WORD SFIMSG 
6844 ; Do a a’: * CHARACTERISTICS to setup a mess buffer 
6845 043076 005037 002222 10$: CLR TFLG 3CL EAR FATAL ERROR FLAG 
6845 043102 012704 047610 MOV OTLIPRCKET, R4 iGET THE ADDRESS OF COMMAND PACKET 
6847 043106 004737 010662 JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
6848 043112 FORCERROR 42$ j @aADFORCE ERROR IF FORCER=1 
6849 043126 103407 BCS 50$ 3;BR IF CARRY SET ($008 RETURN) 
6850 043130 010001 MOV RO,R1 sSAVE CONTENTS OF T 
6851 047132 NEXT .ERRNO 
S2 043132 42$: ERROF ERRNO,T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043132 104455 TRAP CSERDF 
043134 001162 -WORD 626 
043136 046235 -WORD 117SSR 
043140 012106 -WORD PKTSSR 
6853 043142 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
6854 043146 50$: CKLOOP ;LO00P ON ERROR, IF FLAG ser 
6035 043146 104406 C$CLP1i 
S56 8 pe. Write Subsystem READ FIFO with byte count equal to 1 
6857 043150 012700 000001 #1,RO0 ;SET READ BYTE COUNT 
6858 043154 004737 047516 ron PC, T17RF IF } SETUP T17PK2 FOR READ F 
6859 043160 012704 047760 MOV OT17PK2,R4 ;GET WRITE SUBSYSTEM ROMANO P ACKET 
6860 043164 010465 000000 MOV R4, TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
6861 043170 004737 016376 JSR PC,CHKTSSR ' ;WAIT FOR SSR TO SET 
6862 043174 FORCERROR 142$ iY. @aDFORCE ERROR IF FORCER=1 
6863 043210 103407 BCS 150$ ;BR IF C ($008 RETURN) 
6864 043212 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
6865 043214 NEXT . ERRNO 
6866 043214 142%: ERRDF ERRNO,1T176SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO SET 
043214 104455 TRAP CSERDF 
043216 0011635 «WORD 627 
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002222 


047374 
047760 


000000 
016376 


002222 


150$: 


162$: 


172$: 


180$: 


.WORD 1176SSR 

-WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG ser 

C$CLP1 

Do a Write Subsystem READ STATUS 
JSR PC,T17 sSETUP PACKET FOR READ STATUS 
MOV @T17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC; CHKTSSR ;WAIT FOR SSR TO SET 
FORCERROR 162% jadr once ERROR IF FORCER=1 
BCS 170$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRNO, 7173SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 8 
"wORD T173SSR 
“WORD 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET a 
Set WORDS 0-7 of e message buffer = to wgcy since ook oak centtiets 
SR BC TI7SETEXP SET WORDS 0-7 EXPD=RECV 
MOV OTI7EXSTA,R1 iGET EXPECTED READ STATUS 
MOV @T17BFSTA.R2 ;GET RECV READ STATUS 
MOV (R2)+,(R13- sSET EXPD WORD 08 = RECV TEMP 
(R2),(R1) 3SET WORD #9 = RECV TEMP 
BIS INROY..(R1) ;SET EXP INPUT READY= 1 
BIC #52. OUTRDY , (Ri) :SET EXP OUTPUT READY= 0 
BIC @S2.D0IM, (ai) SET EXP DATA IN MISS = 0 
BIS 052. ILW.(R1) EXP LAST WORD (ILW)=1 
If Input Ready NOT=i then Print a 
If Re T=0 or Date in Miss NOT=0 Then Print Error 
f Lest Word (ILW) NOT=1 Then Print Error 
sHIGH RECV ADDRESS FOR CKMSG2 
nv $T17BFR,R1 LOW RECV ADORESS FOR CKMSG2 
MOV OT17EXP .R2 sEXPD ADORESS 
MOV 620. .R3 ;NUMBER OF Sytes TO COMPARE 
JSR PC, CKMSG2 sEXPO EQUAL RECV? 
FORCERROR 172¢,.NOTSSR 
BCs | 180$ BR IF YES 
ERRHRD ERRNO,T176CMP,MSGSTAT  ;REPORT ERROR 
TRAP  CSERHRD 
.WORD 629 
"wORD  1176CMP 
.WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG $7 
RAP = C$CLP1 
ENDSUB 34////////4/4 END SUBTEST ////////747/ 
L10062: 
TRAP 3s CSESUB 


TST FATFLG sANY FATAL ERRORS ? 


SEQ 0164 
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SEQ 0165 
TEST 6: SUBTEST 4: FIFO Verify ILW Stetus 
6909 043424 001402 BEG 260$ sBRANCH IF NOT 
6910 043426 004737 017242 JSR PC, CKDROP ;TRY TO OROP THE UNIT 
6911 043432 260%: 
631 
esis .SBTTL TEST 6: SUBTEST 5S: FIFO Verify Input Ready 
6916 ee 
6917 ; TEST 6: SUBTEST 5S: 
6918 3 
4h, ; SUBTEST DESCRIPTION: 
8 
6921 8 This subtest verifies thet writing 64. bytes into the FIFO 
6922 3 without reading eny out ceuses the Input Ready stetus to 
6923 8 negate. The Subtest then verfiies that writi e 65th byte 
6924 3 into the FIFO ceuses the Dete In Miss stetus to essert. 
6925 3 Next it is verified that the original 64 bytes can be read 
esse 8 out correctly and that the date hes not been corrupted. 
3 
6928 ; TEST STEPS: 
6929 3 
6930 ; BEGIN 
6931 3 Write to TSSR to soft initialize 
6932 3 Do e@ WRITE CHARACTERISTICS to setup ea message buffer 
6933 3 Do e Write Subsystem WRITE to set tape direction out 
6934 ; Do e Write Subsystem WRITE re 64. bytes incrementing pattern 
6935 8 Do e Write Subsystem STATUS 
6936 3 If Input Ready NOT=O Then Print Error 
6937 3 If Reedy NOT=1 Then Print Error 
6938 3 If Date In Miss NOT=0 _ Then Print Error 
6939 ; Do ea Write Subsystem WRITE fro 1 byte for ea total of 65. written 
6940 3 Do a Write Subsystem READ STATUS 
6941 3 If Input Ready NOT=0 Then Print Error 
6942 ; If edy NOT=1 Then Print Error 
6943 : If Date In Miss NOT=1 Then Print Error 
6944 3 Do Write coyotes READ FIFO 
6945 ; If Dete read from FIFO NOT= te Date sent Then Print Error 
6946 3 Do a Write ystem READ STATUS 
6947 : If Input Ready NOT=-1 Then Print Error 
6948 ; If Ready NOT=O Then Print Error 
6949 3 If Dete In Miss NOT=1] Then Print Error 
cs — 
_ 
6952 043432 BGNSUB s/4///444¢//4 BEGIN SUBTEST ////////// 
043432 76.5: 
eens 043432 104402 TRAP Cs6SUB 
6954 4 Write to TSSR register to soft initialize the controller 
6955 043434 $: 
6956 043434 004737 016034 JSR PC, SOF INIT sWRITE TO TSSR TO SOFT INITIALIZE 
6957 043440 103405 BCS 108, ;BR IF SOFT INIT OKAY 
6958 043442 010001 MOV sSAVE CONTENTS OF TSSR 
6959 043444 ERRDF ERAND, SETERR , SFIMSG ;DEVICE FATAL DURING INIT 
043444 104455 TRAP CSERDF 
043446 001165 -WORD 629 
043450 003654 -WORD SFIERR 
043452 012074 -WORD SFIMSG 
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SEQ 0166 
TEST 6: SUBTEST 5: FIFO Verify Input Ready 


6960 3 Do a ee Tee TERISTICS to cote 2 "EATAC ERRO 

6961 043454 005037 002222 10$: CLR FLG 3 CLEAR FAT ERROR. FLAG 

6962 043460 912704 047610 MOV OT LIPACKET ,RA ;GET S OF EORMAND PACKET 

6963 043464 004737 010662 JSR PC, WRTCHR ;00 WRITE MCHARACTERISTICS COMMAND 

6964 043470 F 42% ERROR IF FORCER=1 

6965 043504 103407 BCS 50$ ;BR IF cArRy SET (2000 RETURN) 

6966 043506 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

6967 043510 NE 

6968 043510 42$ ERRDF  ERRNO,7T17SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043510 104455 TRAP CSEROF 
043512 001166 -WORD 630 
043514 046235 — T17SSR 
043516 012106 PKTSSR 
043520 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

6970 043524 50$: CKLOOP ;LOOP ON ERROR, IF FLAG ser. 

een; 043524 104406 CS$CLP1l 

6972 3 Do ea Write Subsystem WRITE NPR to se cise direction out 

6973 043526 012700 000100 100$ MOV @NP .OUT RO SSET T DIRECTION OUT 

6974 043532 004737 047436 JSR PC, TL7SNPR sSETUP T17PK2 FOR WRITE NPR 

6975 043536 012704 047760 MOV OTi7PK2 RO ;GET WRITE SUBSYSTEM COMMAND PACKET 

6976 043542 010465 000000 MOV R4,TSDB(RS) ;SET THE PACKET ADDRESS TO EXECUTE 

6977 043546 004737 016376 JSR Becht SSR ;WAIT FOR SSR TO SET 

6978 043552 FORCERROR 102$ ;@@DFORCE ERROR IF FORCER=1 

6979 043566 103407 6CcS 105$ ;BR IF CARRY | a ($000 RETURN) 

6980 043570 010001 MOV RO,R1 ;SAVE CONTENTS TSSR 

6981 043572 NEXT .ERRNO 

982 043572 102$: ERRDF ERRNO,T174SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043572 104455 TRAP CSERDF 
043574 001167 -WORD 631 
043576 -WORD 1174SSR 
043600 012106 .WORD PKTSSR 

6983 043602 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

6984 043606 105$: CKLOOP sLOOP ON ERROR, if FLAG SET 

oes 043606 104406 TRAP CS$CLPl 

6986 PF Do ea Write Subsystem WRITE FIFO 64. wytes es inerement ing pattern 

6987 043610 012737 000100 002312 MOV 064., ;WRITE 64 BYTES 

6988 043616 012701 046114 MOV OT17WFDATA,R1 sEXPD WRITE FIFO DATA BUFFER 

6989 04 000100 MOV ~ R2 i TEST PATTERN SIZE 

6990 043626 CLR RO sINCREMENT TEST PATTERN 

6991 043630 110021 110%: MOVB RO,(R1)- :ST ORE INCREMENT TEST BYTE 

6992 043632 005200 INC RO sSET NEXT PATTERN 

6993 043634 302 DEC R2 3DONE? 

6994 043636 003374 BGT 110% ;BR IF NO 

6995 04 013700 002312 MOV COUNT , RO 3FIFO BYTE COUNT 
Of 012701 046114 MOV OT17WEDATA,R1 sFIFO cj P| DATA ADDRESS 

6997 043650 737 047 JSR PC, TI7WFIF sSETUP T17PK2 FOR WRITE FIFO 

6998 043654 012704 047760 MOV OT17PK2,R4 ;GET WRITE SUBSYSTEM COED PACKET 

6999 043660 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

7000 043664 004737 016376 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 

7001 043670 FORCERROR 142% j2a0r once ERROR IF FORCER=1 

7 043704 103407 BCS 150% sBR IF CARRY SET (008 RETURN) 

7003 043706 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

7004 043710 NEXT . ERRNO 

005 043710 142%: ERRDF ERRNO,T175SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
043710 104455 TRAP CSEROF 
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002222 


047374 
047760 


000000 
016376 


150$: 


157$: 


162%: 


.WORD 632 
"WORD T175SSR 
“WORD PKTSSR 

INC FATFLG :SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP =s-« C$CLP1 

Do e unite Subsystem READ STATUS 

If Input Ready NOT=0 Then Print Error 

If Output Reedy NOT=1 Then Print Error 

If Detea In Miss NOT=0 Then Print Error 

JSR .T17SRO ;SETUP PACKET FOR READ STATUS | 

MOV OTi7PK2 RA ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDB(RS) ;SET THE PACKET ADDRESS TO EXECUTE 

JSR PC. CHKTS. ;WAIT FOR SSR TO SET 

FORCERROR jas @aDFORCE ERROR IF FORCER=1 

BCS 160$ :BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRDF ERRNO,T173SSR.PKTSSR ;DEVICE FATAL SSR FAILED 10 SET 
TRAP CSEROF 
.WORD 633 
"wORD 1173SSR 
"WORD PKTSSR 

INC FATFLG SET FATAL ERROR FLAG 

CKLooP ;LOOP ON ERROR, IF FLAG SET hoson 

Set WORDS 0-7 of e message buffer = to recy since not "ceatite 

JSR PC, T17SET ;SET WORDS 0-7 EXPD=RECV 

MOV OTITEXSTA.RD GET EXPECT ep READ STATUS 

MOV 6T17BFST :GET RECV READ STATUS 

MOV (R2)+,(R13« :SET EXPD WORD #8 = RECV TEMP 

MOV (R2),¢R1) sSET EXPD WORD 99 = RECV TEMP 

BIC @S2. INRDY.(R1) 3SET EXP I READY= © 

BIS #52. OUTRDY, (Ri) 3SET EXP READY= } 

BIC @S2.DIM, (Ri) ;SET EXP DATA IN MISS = 0 

CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

MOV OT17BFR,R1 sLOW RECV ADORESS FOR CKMSG2 

MOV OT17EXP.R2 sEXPD ADORE 

MOV $20. .R3 {NUMBER OF BYTES TO COMPARE 

JSR PC, sEXPD EQUAL RECV? 

F 162$ ,NOTSSR 

BCS 170% i8R IF YES 

ERRHRD ERRNO,T173CMP,MSGSTAT  ;REPORT ERROR 
TRAP = CSERHRD 
.WORD 634 
"WORD T173CMP 
“WORD MSGSTAT 

CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP ss C$CLP2 


Do e Unite Subsystem WRITE FIFO 1 
MOV RO 


MOV ati rurpata, R1 
JSR PC, TI 7WFIF 


? 
1 eree, evte & total © 65. written 


sFIFO URITE Count ADORE SS 
sSETUP T17PK2 FOR WRITE FIFO 





SEQ 0167 


M13 
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002222 
180$: 
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s 

~ 
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047374 
047760 


000000 
016376 


187%: 


192%: 
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MOV OT17PK2,R4 

MOV R4, TSDBCRS) 

JSR PC. CHKTS 

F 172% 

BCS 180$ 

MOV RO,R1 

NEXT . ERRNO 

ERRDF ERRNO, T175SSR,PKTSSR 


INC FATFLG 
CKL 
Do a te Subsystem READ STATUS 


If tou meady NOT=0 
If Output NOT=1 
If Date ge re NOT=1 


JSR 17 
MOV OTL 7PK2,R4 
MOV R4, TSDB(RS) 
JSR PC. CHKTSSR 
FOR 187% 
BCS 190$ 
MOV RO.R 
NEXT 
ERRNO, 7173SSR,PKTSSR 
INC FATFLG 


saat wrve SUBSYSTEM cree PACKET 
sSET_ THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

F FORCER=1 


@aDFORCE ERROR I 
BR IF CARRY SET (G00 RETURN) 
}SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSERDF 
-WORD 635 
-WORD 1175SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG a 
CsCLP1 


Then Print Error 
Then Print Error 
Then Print Error 


sSETUP PACKET FOR READ STATUS 


PACKET 
PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 
ny. @aDFORCE ERROR IF FORCER=1 
sBR IF CARRY SET ($009 RETURN ) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
- WORD 36 
-WORD 1173SSR 
- WORD T 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG =. 
CsCLP1 


= to recv since a cantine 


JSR PC, TI7SETE ;SET WORDS 0-7 EXPD=RECV 

MOV OTI7EXSTA,R1 ;GET EXPECTED READ STATUS 

MOV OT17BFSTA.R ;GET RECV READ STAT 

MOV (R2)+,(R1)« 3SET WORD @8 = RECV TEMP 

MOV (R2),¢R1) 3SET EXPD WORD @9 = RECV TEMP 

BIC $S2.INRDY,(R1) :SET EXP INPUT READY= 0 

BIS @S2. OUTRDY, (R1) 3SET EXP OUTPUT READY= 1 

BIS @52.D1M, (Ri 3SET EXP DATA IN MISS = 1 

CLR RO sHIGH RECV ADDRESS FOR CKMSG2 

MOV OT17BFR,R1 ;LOW RECV ADDRESS FOR CKHSG2 

MOV OT17EXP.R2 3EXPD ADDRESS 

MOV RS ‘NUMBER OF BYTES TO COMPARE 

JSR sEXPD EQUAL RECV? 

F 192¢ ,NOTSSR ;aa0 

BCS 200% iBR IF YES 

NEXT . ERRNO 

ERRHRD ERRNO,T173CMP,MSGSTAT REPORT ERROR 
TRAP CSERHRD 
.WORD 637 
"WORD  T173CMP 


SEG 0168 


N13 
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7131 064 

7132 044550 

7133 044550 
oad 


012410 


103406 
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002312 
047516 
047760 
000000 


016376 


002222 


047374 
047760 


000000 
016376 


SEQ 0169 


WORD MSGSTAT 


200%:  CKLOOP :LOOP ON ERROR, IF FLAG SET 
soe tikied TRAP = C$CLP1 
8 Write tem F 
P8y count’ aS }SET READ BYTE COUNT 
JSR PC, TL7RFIF ;SETUP T17PK2 FOR READ FIFO 
MOV OTi7PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV 4,TSDB¢ ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC. CHKTSSR ;WAIT FOR aes ont. SET 
FORCERROR $ jBOOFORCE ERROR IF FORCER=1 
BCS 220% :BR IF CARRY oes ¢GOOD RETURN) 
MOV. . RO,R1 ;SAVE CONTENTS OF T 
212$: ERRDF ERRNO,T176SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
- WORD T176SSR 
PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
220%:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
C$CLP1 
3 ft Date read from FIFO NOT= to Data sent Then Print Error 
CLR ;HIGH RECV ADDRESS FOR 
MOV $T17WFDATA,R2 ;GET EXPECTED ADDRESS FOR CKMSG2 
MOV @T17BFSTA,R1 :GET RECEIVED ADDRESS CKMSG2 


MOV COUNT ,R3 
JSR PC, CKMSG2 
CERROR 


E SS FOR 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


FOR 232$ ,NOTSSR ;aa0 
BCS 240 ;BR IF YES 
NEXT . ERRNO 
232$: MOV COUNT ,R1 :GET BYTE COUNT 
ERRHRD ERRNO.T17SCMP,FIFEXP ;REPORT ERROR 
TRAP §C4ERHRD 
.WORD 639 
"wORD  T17SCMP 
"WORD FIFEXP 
240%: CKLOOP ;LOOP ON ERROR, IF FLAG Ser 
RAP = C$CLP1 
3 e Wri Subs: READ STATUS 
3 °° Input Reedy Note) Then Print Error 
ry If Output Ready NOT=0 Then Print Error 
3 If Dete In Miss NOT=] Then arene Error 
JSR TEISAD OR READ STATUS 
MOV eTi iGET unite pBaT te OMMAND PACKET 
MOV R4, TSDBCRS) 3SET T ADORESS TO EXECUTE 
usr PC. CHKTSSR , ;WAIT FoR assk ont en . 
6cs Rook eave glen (£003 neue) 
MOV Ri ENTS OF 
NEXT . ERRNO 
2524:  ERROF ERRNO, T173SSR.PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERODF 
x 640 
"WORD T173SSR 
"WORD PKTSSR 


Bi4 
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005237 


012410 
104406 
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002222 


002222 
017242 


260$: 


272s: 


2803: 


300$: 


INC __‘ FATFLG SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET 

Set WORDS 0-7 of buff t om 
or ¢€ mess er = oOo recv since no Ss 

JSR TExb® ae eipoSRERY ing 


,T17SE T WORDS 0-7 

MOV OTLTEXSTACAL GET EXPECTED READ STATUS 

MOV #T17BFSTA.R2 ;GET RECV READ STATUS 

MOV (R2)+,(R13« sSET EXPD WORD #8 = RECV TEMP 
(R2),CR1 :SET EXPD WORD #9 = RECV TEMP 

BIS S2.INROY,(R1) ;SET EXP INPUT READY= 1 

BIC #52. OUTRDY, (R1) ;SET EXP OUTPUT READY= 0 

BIS #52 .DIM, (Ri) :SET EXP DATA IN MISS = 1 

CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 

MOV $T17BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 

MOV OT17EXP.R2 sEXPD ADDRESS 

MOV $20. ,R3 ;NUMBER OF BYTES TO COMPARE 

JSR PC, CKMSG2 }EXPD EQUAL RECV? 

FORCERROR 272$ ,NOTSSR ;@aD 

BCS 280$ BR IF YES 

NEXT. ERRNO 


ERRHRL ERRNO,1T174CMP ,MSGSTAT sREPORT ERROR 
TRAP C$ERHRD 
-WORD 641 
-WORD 1174CMP 


. WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 
ENDSUB 34////4/////7/ END SUBTEST /////////7/ 

L10063: 

TRAP Cs$ESUB 
TST FATFLG sANY FATAL ERRORS ? 
BEQ 300$ ;BRANCH IF NOT 
JSR PC ,CKDROP sTRY TO DROP THE UNIT 


-SBTTL TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 


; TEST 6: SUBTEST 6: 


SUBTEST DESCRIPTION: 


This subtest verifies that the Reset FIFO function within 
the Write Miscellaneous Control 1 function initializes 
the FIFO to correct intial status. The following steps 
ere performed: 
1. Reset an already initialized FIFO and check for 
roper status. 
Bi. ite @ varying number of bytes (1-65.) into the 
FIFO and ond verity thet after each block of bytes is 
i Sean the FIFO can be be reset to it's initial 
state. 


SEQ 0170 
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2 
7227 045020 
7228 045034 
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016034 


002222 
047610 
010662 


002222 


047414 
047760 


000000 
016376 


TEST STEPS: 


BEGIN 
Write to TSSR to soft initi 
Do @ WRITE CHARACTERISTICS 


If ell Tape Ste 4 2 CICER, 
signals NOT=0 Then Print 
Do e Write Subsystem WRITE 


wee Pe BYTE COUNT 1 TO 65. 
Do a Write Subsystem WRITE 

Do a Write Subsystem Wr ite 

Do a Write Subs meres READ STA 

If ell Tape Status 2 CICER, 
signals NOT=0 Then Print 


BGNSUB 


Ur 
ao 


PC, SOF INIT 
10$ 


RO,R1 


JSR 
BCS 
MOV . 

ERRNO, SFIERR , SF iMSG 


; Do a wan SOC TERISTICS 
10%: CLR" FLG 
MOV OTL TPACKET, R4 
WRTCHR 


FORCERROR 428 


SE@ 0171 


elize 
to setup 8 mess buffer 


Do e Write “perverts READ STATUS 


IFMK,IHER) flip-flop 
Error 
NPR to set tape direction out 


FIFO with the current byte count 
ath to Reset FIFO 


TUS 
IFMK,IHER) flip-flop 
Error 
AAA OEGIN SUBTEST SAMSshhits 
~ oa CsB6SUB 


Write to TSSR register to soft initialize the controller 


sWRITE TO TSSR TO oor INITIALIZE 
BR IF SOFT INIT OKAY 
iSAVE CONTENTS OF TSSR 


sDEVICE FATAL DURING INIT 
TRAP CSEROF 
641 
WORD SFIERR 
WORD SFIMSG 


to set en FLAG 
SCLEAR FA FAT TAL” ERROR 


:GET THE ADORE Ess 0 OF  CORMAND PACKET 
:00 WRITE oivonta click ti COMMAND 
ERROR IF FORCER=1 


BCS Sos yer IF CARRY Sef (00D RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
42$:  ERRDF ERRNO, T17SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
.WORD 642 
“WORD T1.75SR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
S0$:  CKLOOP LOOP ON ERROR, IF FLAG SET) 
; Do a Write Serete= Write Misc to Reset FIFO 
JSR PC, T17ROF IF teetUP PKT FOR WRITE MISC RESET FIFO 
MOV OT17PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 


MOV R4, TSOBCRS) 
JSR PC ,.CHKTSSR 
FORCERROR 62% 
BCS 70% 


sSET_ THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

@aDFORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 


14 
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7229 045036 010001 


7230 045040 


7231 04 62$: 


002222 
70$: 


047374 
047760 


000000 
016376 


77$: 


80$: 


92%: 


012700 000100 
047436 
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MOV RO,R1 
NEXT .ERRNO 
ERRDF  ERRNO,1T172SSR,PKTSSR 


INC 
CKLOOP 


FATFLG 


Do a Write Spoyetes READ STA 


If all Tape Ste 


sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
«WORD 1172SSR 
. WORD TSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG +r 
CS$CLPl 


TUS 
us 2 (CICER,IFMK,IHER) flip-flop 


signals NOT=0 Then Print Error 
JSR PC,T17SRD ;SETUP PACKET FOR READ STATUS 
MOV @T17PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 
JSR PC,CHKTS WAIT FOR SSR TO SET 
F 533 @aOFORCE ERROR IF FORCER=1 
BCS 80$ ;BR IF C Y SET (gece RETURN) 
+e RO,R1 i SAVE CONTENTS OF TSSR 
ERROF ERRNO, 17173SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 644 
. WORD T173SSR 
.- WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG <r. Tn 
JSR PC, T17SETEXP 3SET S 0-7 ee stitus CNOT TESTING) 
MOV OTI7TEXSTA, R1 ;GET EXPECTED READ STAT 
MOV @T17BFSTA.R2 sGET RECV READ STA 
MOV CR2),(R1) 3SET WORD = RECV TEMP 
BIC $51.1CER,(R1) ;SET EXPD ICER =0 
BIC #Sl. Tantei’ 3SET IFMK =0 
BIC #51. IHER,(R1) 3sSET IHER =0 
MOV 2(R2), 2cRi) 3SET WORD 99 = ouve (NOT TESTING) 
CLR RO sHIGH RECV ADDRESS F 
MOV @T17BFR,R1 sLOW RECV ADDRE OR 
MOV OTI7EXP ,R2 sEXPD ADDRESS 
MOV €20., sNUMBER OF BYTES TO COMPARE 
JSR PC, sEXPD EQUAL RECV? 
F 92% ,NOTSSR 3;aa0 
a, 100% ;B8R IF YES 
ERRHRD ERRNO,T177CMP ,.MSGSTAT sREPORT ERROR 
TRAP cs 
. WORD 64 
. WORD T177CMP 
.WORD MSGSTAT 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP CsCL_Pl 
Do e Write Subsystem WRITE NPR to set t rection out 
MOV. ~ OUT ,RO ;SET T oineet ION OUT 
JSR PC,T 17SNPR i SETUP T17PK2 FOR WRITE NPR 


SEQ 0172 


E14 
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104406 


012701 
012702 
005000 


110021 
005200 
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047760 
000000 
016376 


002222 


046012 
000100 


000000 
016376 


002222 


047414 
047760 


000000 
016376 


002312 


1l2$: 


130%: 


MOV OT17PK2 RS 

MOV R4, TSDB(RS) 

JSR PC, SSR 

F 112$ 

BCS 120% 

MOV RO,R1 

NEXT . ERRNO 

ERROF  ERRNO,T174SSR,PKTSSR 
INC FATFLG 

CKLOOP 


Setup increment 
MOV 


MOV 
CLR 


INC 
DEC 
BGT 


3 


STI TERSTAS Ri 
964. ,R2 


3 a a i at! 1 TO 65. 
Do ea Write Subsystem WRITE FIFO “iss the current byte count 
AT LOOP LABEL 


152%: 


MOV : 
MOV OT17EXSTA,R1 
JSR .T17WF IF 
MOV OTi7PK2,R4 
MOV R4, TSDB¢ 
JSR PC. CHKTSSR 
FORCERROR 152$ 
BCS 160% 
MOV RO,R1 
NEXT . ERRNO 
ERRNO, T175SSR,PKTSSR 
INC FATFLG 
CKL 
Do e Write Seyeter Write Misc 
JSR PC, TI7R 
MOV i7PK2,R4 
MOV R4, TSDB(RS) 
JSR PC; CHKTSSR 
BCS 70$ 
MOV R 
NEXT. 


sGET WRITE SUBSYSTEM COMMAND PACKET 
s;SET_ THE PACKET ADORESS TO EXECUTE 
sWAIT FOR SSR TO SET 

FORCER=1 


poe one ERROR IF 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
. WORD 
. WORD paces 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CsCLP1 


ng pattern in FIFO data bu 


sEXPD oRTTE "Foro DATA BUFFER 
i TEST PATTERN SIZE 

s INCREMENT TEST PATTERN 
iSTORE INCREMENT TEST BYTE 
;SET NEXT PATTERN 


3;DONE? 
;6R IF NO 
3GET FIRST BYTE COUNT 


L 

iEIFO BYTE COUNT 
sFIFO WRITE DATA ADDRESS 
sSETUP T17PK2 FOR WRITE FIFO 
sGET + | SUBSYSTEM COMMAND PACKET 
sSET_ THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

,SSOF ORCE ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 647 
-WORD T175SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP CS$CLPl 


to Reset FIFO 

;SETUP PKT FOR WRITE MISC RESET FIFO 
iGET wrt SUBSYSTEM COMMAND PACKET 
;SET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


,oeor once 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


SEQ 0173 


Fi4 
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7318 045502 1628: 
04 104455 
901210 


046272 
012106 
005237 


104406 


002222 
170%: 


737 047374 
047760 


000000 
016376 


177$: 


180$: 


192%: 


200$: 


250%: 


37 


0052 002312 
023727 


002312 000101 
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SEQ 0174 


ERRDF ERRNO,T172SSR.PKTSSR ;DEVICE FATAL SSR FAILED 10 SET 
TRAP CSERDF 
. WORD 
"WORD 1172SSR 
"WORD PKTSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
CSCLP1 
Do e Write Subsystem READ STATUS 
If ell Tape Stetus 2 CICER,IFMK,IHER) flip-flop 
sigrels NOT=0 Then Print Error 
JSR ,T17SRD "Or |SETUP PACKET FOR READ STATUS | 
MOV OTi7PK2 RO :GET WRITE SUBSYSTEM COMMAND P 
MOV R4, TSDB(RS) :SET THE PACKET SS TO EXECUTE 
JSR PC. CHKTSSR ;WAIT FOR SSR TO SET 
F 177% jas @aDFORCE ERROR IF FORCER=1 
BCS 180% :BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF €RRNO,T173SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 9 
- WORD TA73SSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET rae 
JSR PC, T17SETEXP ;SET WORDS 0 7 EXPD=RECV (NOT TESTING) 
MOV OTI7EXSTA,R1 3GET EXPECTED READ STATUS 
MOV 6T17BFSTA.R2 ;GET RECV READ STA 
MOV (R2),(R1) 3SET EXPD $6 = RECV TEMP 
BIC $S1.1CER,(R1) :SET EXPD ICER =0 
BIC $51. IFMK~C(R1) :SET EXPD IFMK =0 
BIC THER. (R1) sSET EXPD IHER =0 
MOV 2(R2),2(R1) 3SET EXPD WORD #9 = RECV (NOT TESTING) 
CLR HIGH RECV ADDRESS FOR CKMSG2 
MOV OT17BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV OT17EXP. sEXPD ADDRESS 
MOV $20. .R3 {NUMBER OF BYTES TO COMPARE 
JSR PC, sEXPD EQUAL RECV? 
F 192$ ,NOTSSR 3aa0 
BCS 200% iOR IF YES 
NEXT . ERRNO 
ERRHRD ERRNO,T177CMP,MSGSTAT  ;REPORT ERROR 
TRAP CSERHRD 
.WORD 650 
"WORD 1177CMP 
"WORD MSGSTAT 
CKLOOP sLOOP ON ERROR, IF FLAG SET 
TRAP =s-« C$CL P21 
FORCEXIT 260$ 
INC COUNT :GET NEXT BYTE COUNT 
CMP COUNT , #65 ;DONE ALL BYTES? 


G14 
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7360 


045726 


101002 
000137 


104432 
002112 
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BHI 260$ 
045354 JMP 150$ 
2603: 
ENDSUB 
002222 TST FATFLG 
BEQ 300$ 
017242 JSR PC, CKDROP 
016516 300%: JSR PC; TSTLOOP 
BCC 305$ 
040014 JMP T17L00P 
305$: 
EXIT TST 


;LOCAL STORAGE FOR THIS TEST 
ge 


T17MSK: 
.BYTE tC<000> 
.BYTE t0<340> 
.BYTE tC<017> 
.BYTE 
TI7EXP: 
-WORD O 
-WORD O 
-WORD O 
-WORD O 
-WORD O 
-WORD O 
-WORD O 
-WORD O 
TI7EXSTA: .BLKB 66. 
TI7EXEND: 
TI7WFDATA: .BLKB 66. 


;LOCAL TEXT MESSAGES FOR TEST 
ge 


SEQ 0175 


;BR IF YES 
sD00 ANOTHER BYTE COUNT 


s///////11/1//7 END SUBTEST ////////// 
L10064; 
TRAP CsESUB 


sANY FATAL ERRORS ? 
sBRANCH IF NOT 

sTRY TO DROP THE UNIT 
;00 ITERATIONS? 

;6R IF 

;LOOP UNTIL ITERATIONS DONE 


s4//4/41/4///7/ EXIT TEST SSS/SS///// 
TRAP C$EXIT 
L10056-. 


sMASK OF UNTESTED BITS as READ STATUS BYTES 
sUNTESTED BITS ARE SET TO 1 
sBYTE O ay 


BYTE 1 MA SK_CPARERR IRESV2, IRESV1) 
BYTE 2 (TIMER A, TIMER B, UNDEFINED<1:0>) 
;MAKE IT EVEN 


sBEGIN peecreo DATA BUFFER 
sMESSAGE 
:DATA FIELD LENGTH 


3 
ixST4 CALWAYS PRESENT FOR WRITE SUB.) 
sEXPECTED READ STATUS AND WRITE FIFO DATA 
sEND EXPECTED DATA BUFFER 


sWRITE FIFO EXPECTED DATA BUFFER 


r) Failed’ 


111 106 ¥ST3 770s iets "FIFO Exerciser’ 

122 111 T17SSR: .ASCIZ E Oereten finite Failed’ 

122 111 1T172SSR: .ASCIZ URI TE SUBSYSTEM 

122 111 T173SSR:.ASCIZ ‘WRITE SUBSYSTEM Reed Stetus) Pelle’ 
122 111 T174SSR:.ASCIZ ‘WRITE SUBSYSTEM (Write 

122 111 T17SSSR:.ASCIZ ‘WRITE SUBSYSTEM (Write FIFO) Failed’ 


H14 
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7413 046512 127 122 111 T176SSR:.ASCIZ ‘WRITE SUBSYSTEM (Read FIFO) Failed’ 
7414 046555 106 111 106 T171CMP::ASCIZ ‘FIFO Stetus in WORD #9 Incorrect after Initielize’ 
7415 046637 122 145 141 T172CMP:.ASCIZ ‘Read FIFO Date not equal to Write FIFO , Date is in WORD 98’ 
7416 046733 106 111 106 TI73CMP:.ASCIZ ‘FIFO Status (In } Incorrect after WRITE FIFO’ 
7417 047017 106 111 106 T174CMP::ASCIZ ‘FIFO Status (In WORD #9) Incorrect after READ FIFO’ 
7418 047102 122 145 141 T17SCMP:.ASCIZ ‘Read FIFO Data not equal to Write FIFO Date 
7419 047156 106 111 106 T176CMP:.ASCIZ ‘FIFO Status (In 29) Incorrect after READ FIFO from an Empty FIFO’ 
7420 047264 106 111 106 TI77CHP::ASCIZ ‘FIFO Status (In WORD $9) Incorrect after RESET FIFO’ 
7432 
7423 3° 
7434 ; CLEAR MESSAGE BUFFER 
7425 ‘ 
7426 047350 +1 7CLRBUF : , 
7427 047350 SAVREG :SAVE R1-RS_UNTIL NEXT RETURN 
7438 047354 012701 047632 MOV 6T17BFR,R1 GET MESSAGE BUFFER ADDRESS 
7439 047360 012702 000120 MOV $T17BEND-T17BFR,R2 }SIZE OF MESSAGE BUFFER IN BYTES 
7430 047364 105021 10$:  CLRB  (R1)- ‘CLEAR A BYTE 
7431 047366 005302 DEC R2 ; DONE? 
7432 047370 003375 BGT 10$ BR IF NO 
7433 047372 7 RTS PC RETURN 
7434 
7435 he 
7436 } SETUP T17PK2 PACKET FOR READ STATUS 
7438 047374 417SRD: 
7439 047374 004737 047350 JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
7440 047400 012700 047770 MOV @T170T2,RO {WRITE SUBSYSTEM DATA BUFFER 
7441 047404 112720 000005 MOVE SPU RDS TATUS, (RO)> }STORE READ STATUS COMMAND IN BSELO 
7442 047410 105010 CLRB = (RO) ;CLEAR BSELI 
7443 047412 207 RTS } RETURN 
7444 
7445 3° 
7446 ; SETUP T17PK2 PACKET FOR WRITE MISC RESET FIFO 
7448 047414 $i 7RSFIF : 
7449 047414 004737 047350 JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
7450 047420 012700 047770 MOV @Ti7DT2,RO WRITE SUBSYSTEM DATA BUFFER 
7451 047424 112720 000010 MOVB PW. WMISC,(RO)- }STORE WRITE MISCELLANEOUS IN BSELO 
7452 047430 112710 0000 MOVB MS __RSFIF !MS.RSTAP, (RO) 1 STORE BSEL1 CLEAR FIFO CODES 
7453 047434 RTS PC }RETURN 
7454 
7455 
7436 } SETUP T17PK2 PACKET FOR WRITE NPR 

a 
7458 ; INPUT: 
7459 : RO CONTAINS BSEL1 NPR DATA 
460 : 
7461 ; SETS NP.WRP SINCE IF © IT WRITES WRONG PARITY. 
7463 047436 +17SNPR: 
7464 047436 004737 047350 JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
7465 047442 012701 047770 MOV oT170T2,R1 {WRITE SUBSYSTEM DATA BUFFER 
7466 047446 112721 000011 MOVB OPW. WNPR, (R1)- 3ST ORE WRITE NPR IN BSELO 
7467 047452 052700 0000 BIS ONP " WRP RO DON'T WRITE WRONG PARITY 
7468 047656 110011 MOVe «RO, (R11) }STORE NPR DATA IN BSEL1 
7469 047460 000207 RTS PC SRETURN 
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004737 
012701 
112721 
1 10024 
00020 


012701 
012700 
105021 


005300 
003375 
000207 
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047350 
047770 
000003 


045772 
000122 


; SETUP T17PK2 PACKET FOR WRITE Fir0 


SEQ 0177 


b 

3 INPUT: 

; RO CONTAINS BYTE COUNT 

; R1 CONTAINS DATA PATTERN BLOCK ADDRESS 

he 

T17WF IF 
SAVREG ;SAVE R1-RS UNTIL NEXT RETURN 
JSR PC, T17CLRBUF ;CLEAR MESSAGE BUFFER 
MOV $Ti70T2,R2 ;WRITE SUBSYSTEM DATA BUFFER 

OPW. WFIFO,(R2)- ;STORE WRITE FIFO IN BSELO 

MOVB = RO, (R2)+ ; STORE BYTE COUNT IN BSEL1 
CLR CRe}- ;CLEAR SEL 2 CUNUSED ) 

10$: MOVB R1)+,(R2)- :STORE DATA PATTERN BYTE 
DEC RO ;D0NE ALL BYTES? 
BGT 10$ :8R IF NO 
RTS PC ; RETURN 

3° 

; SETUP T17PK2 PACKET FOR READ FIFO 

7 

; INPUT: 

; RO CONTAINS SEL2 BYTE COUNT 

Ti 7RFIF : 


JSR PC, T17CLRBUF 
MOV oT170T2,R1 


MOVB oPU. Rr IFO, (R1)- 
vB RO,(R1) 
RTS PC 


t Td 
; CLEAR EXPECTED DATA MESSAGE BUFFER 
Fi 7CLExP. 

OT17EXP 


MOV 611 7EXEND- T17EXP ,RO 
10%: CLRB (R1)- 


DEC 
BGT 10$ 
RTS PC 


sCLEAR MESSAGE BUFFER 

s;WRITE SUBSYSTEM DATA BUFFER 
sSTORE READ FIFO IN BSELO 

i STORE BYTE COUNT IN BSEL1 


:GET EXPD ADDRESS 
iGET ay SIZE 
sCLEAR A BYTE 


? 
i8R IF NO 
;RETURN 


| 
sSet WORDS 0-7 of expd message buffer = to recv since not testing 


Ti 7SETEXP: 
MOV OTL 7EXP ,R2 
MOV OT17BFR.R3 
MOV $8. ,RO 

S$: MOV (R35, (R2)- 
DEC RO 
BGT 5$ 
RTS PC 


-*<.*10>€177770 


;GET EXPD 
:GET READ STATUS RECV BUFFER 
WORDS 0-7 EXP=RECV 


REC 
sDONE WORDS 0-7 WORDS? 


J14 
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TEST 6: SUBTEST 6: FIFO Verify Reset FIFO Test 
;WRITE CHARACTERISTICS COMMAND PACKET 


SEQ 0178 


30 
7531 047610 41 7PACKET: ;COMMAND PACKET FOR TEST 
7332 087619 100008 -WORD 4.00004 WRITE CHARACTERISTICS CORMIAND, WITH ACK 
7533 047612 047620 "wORD TI7DATA ;ADORESS OF CHARACTERISTICS BLOCK 
7534 047614 000000 "WORD 0 
7335 047616 000012 “WORD 10, ;MINIMUM MESSAGE PACKET SIZE 
7537 047620 T17DATA: ;CHARACTERISTICS DATA BLOCK 
7538 047620 047632 .WORD -T17BFR ;ADORESS OF MESSAGE BUFFER 
7539 047622 000000 “WORD 0 
7540 047624 000024 “WORD 20. ;LENGTH OF MESSAGE BUFFER 
7541 047626 000000 “woRD 0 ;€SS, ENB, EAI ERI 
7342 047630 000000 “wORD 0 ;EXTENDED FEATURES UNIT NO. ETC. 
yeaa 
Le ot 4 s;MESSAGE BUFFER FOR ALL TEST 6 COMMANDS 
7547 047632 T178FR: ‘BEGIN MESSAGE BUFFER 
7548 047632 000000 WORD 0 ;MESSAGE TYPE 
7549 047634 000000 WORD 0 ;DATA FIELD LENGTH 
7550 047636 000000 WORD 0 ;RBPCR 
7551 047640 000000 WORD 0 3xSTO 
7552 047642 000000 WORD 0 x$T1 
7553 047644 WORD 0 3XST 
7554 047646 000000 “wORD 0 ixST 
7555 047650 000000 "WORD 0 iXST4 (ALWAYS PRESENT FOR WRITE SUBSYSTEM 
7556 047652 TI7BFSTA: .BLKB 64. }READ STATUS AND WRITE FIFO BUFFER 
7357 087752 11 7BEND: ;END OF MESSAGE BUFFER 
; 

7559 ;WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
7560 : 
7562 047760 .*«, «1026177770 
7564 047760 T17PK2: 
7565 047760 100006 WORD .WRTSUB!P. ACK ;WRITE SUBSYSTEM WITH ACK 
7566 047762 047770 WORD  Ti7DT> ;LOW ADORESS OF DATA BLOCK 
7567 047764 000000 WORD 0 ;HIGH ADDRESS OF DATA BLOCK 
7568 067766 o00012 "WORD 10 ;MINIMUM MESSAGE PACKET SIZE 
7570 087770 117072: :DATA BLOCK 
7571 047770 000 BYTE 0 ;BSELO 
7372 047771 000 "BYTE 0 ;BSEL1 
7573 047772 000000 "WORD «OO sSEL@ 
7574 047774 BLKB 66. ;WRITE FIFO DATA OUTPUT BUFFER 
7576 050076 ENDTST 

050076 L10056: 

050076 104401 TRAP —s CSETST 


.SBTTL TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
; TEST DESCRIPTION: 


Cd eek 


3 
; 
; TEST STEPS: 
} ss REPEAT FOR LOOPENT 


K14 
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TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 


BEGIN 
Write to TSSR copiceer to soft initieslize the controller 
WRITE CHARACTERISTICS to check for Extended Festures Switch 
rm Feetures Herdwere Switch Clear then: 
Sforetes Write Miscellaneous to Set Extended Features. 

iT E \ endian ERISTICS to select reserved unit 7 

Write ——— tem READ STATUS 
transport interface sigrels ere esserted then Print Error 


g1ST1SID,R0 ASCII MESSAGE 10. IDENTIFY TEST 
PC, TSTSE TWP DO INITIAL TEST SETUP 
910. LOOPENT PERFORM 10 ITERATIONS 


‘Write to TSSR register to soft initialize the controller 


JSR PC, SOF INIT ;WRITE TO TSSR TO oor" INITIALIZE 
Ss 10% :8R IF SOFT INIT OK 
RO,R1 ;SAVE CONTENTS OF TeSR 
ERRNO , SF IERR , SF IMSG ;DEVICE FATAL DURING INIT 


Do wen GURACTERESTECS to check f 
CLR FLG 


MOV GET THE ADORESS OF COMMAND 
JSR PC .WRTCHR :00 WRITE CHARACTERISTICS COMMAND 
FORCERROR i= @aDF ORCE ERROR IF A tien 
+77 IF CARRY SET (008 RETURN 
SAVE CONTENTS OF TSSR 


NEXT . ERRNO 
ERRDF ERRNO, T18SSR,PKTSSR sDEVICE FATM SSR FORLED . & SET 


FATFLG SET FATAL ERROR FLAG 
LOOP ON ERROR, IF FLAG . 
csc. Pi 


Herdwere Switch Cleer then: 
sMESSAGE BUFFER ADORESS 
sEXTENDED FEATURES SWITCH SET? 
s6R IF YES 
FOR WRITE MTSCEL 1 AE OUS 
YSTEM COMMAND P 
_ TO EXECUTE 


aaor IF FORCER=) 
yon F CARAY Sef ceo0s Re TUM 


000000 
016376 





L1i4 
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TEST 7; STATIC TRANSPORT BUS INTERFACE TEST 
010001 MOV ;SAVE CONTENTS OF TSSR 
22¢: - . ‘ sDEVICE FATAL SSR FAILED 10 SET 


104455 
oles 


050702 
012106 
005237 


. WORD 
. WORD 
. WORD 
:SET FATAL ERROR FLAG 
;LOOP ON ERROR, IF FLAG SET 


—, ORRACTERESTICS to select reserved un 
FLG a FATAL “ERROR FLAG 
THE ADORESS OF COMMAND PACKET 
‘0. WRITE eats aiken t COMMAND 
ft . seo cnet ERROR IF FORCER=1 
;BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


ERRNO, T18SSR,PKTSSR s;DEVICE FATAL SSR FAILED TO Set 
- WORD 
. WORD 
. WORD 


FATFLG sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG =. 


Clear fer 
a oT ifore Rl ;GET MESSAGE BUFFER 


ADORE SS 
TI1BDATA-4,RO sSIZE OF MESSAGE BUFFER IN BYTES 
(R1)- ;CLEAR A BYTE 
~% DONE ? 


sMAIT FOR SSR TO SET 
(ERROR IF FORCER®1 
yor IF Chany 


GOOD RETURN) 
sSAVE CONTENTS oF TSSR 
sDEVICE FATA SSR FAILED TO SET 
TRAP Geenor 
. WORD 04 
-WORD T1T183SSR 
-WORD PKTSSR 
sSET FATAL ERROR F 


LAG 
sLOOP ON ERROR, IF FLAG SET 
TRAP Csc.P1 


of expd message buffer = — recy since not testing 
unused bits in Read Stetus ~e9 > Re 
PC. TISSETEXP EXPO TO RECV 





M14 
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SE@ 0181 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 
3 f trensport interface si ls ere ted then Print Error 
7680 050454 005000 tia” ‘ho re AIGH RECY ADDRESS FOR CKMSGS 
7681 050456 012701 O33 312 MOV OT16BFR.R1 sLOW RECV ADDRESS FOR CKMSG2 
7 050462 0127 0505 MOV OT1BEXP .R2 sEXPD ADORE 
7683 050466 01270 000012 MOV #10. .R3 sNUMBER OF WORDS TO COMPARE 
7684 050472 004737 011540 JSR PC, CKMSG2 sEXPD EQUAL RECV? 
7685 050476 FORCERROR 82% ,NOTSSR 7; aad 
103404 6cs 90% ;6R IF YES 
7687 050510 NEXT . ERRNO 
7688 050510 82s: ERRHRD ERRNO, T1SCMP ,.MSGSTAT sREPORT ERROR 
050510 104456 TRAP CSERHRD 
050512 001301 . WORD 7 
050514 051013 . WORD Tl 
050516 012410 . WORD MSGSTAT 
7689 050520 90$: CKLOOP sLOOP ON ERROR, IF FLAG SET 
see 050520 106406 TRAP CSCLPl 
7691 050522 005737 002222 TST FATFLG ;ANY FATAL ERRORS ? 
7692 050526 001402 BEQ 160$ sBRANCH IF NOT 
7693 050530 004737 017242 JSR PC. CKDROP ;TRY TO DROP THE UNIT 
7694 050534 004737 016516 160%: JSR PC, TSTLOOP ;D0 ITERATIONS? 
7695 050340 103002 BCC 165$ :BR IF NO 
7696 050542 000137 050116 JMP 18L00P ;LOOP UNTIL ITERATIONS DONE 
7697 050546 165%: 
7698 050546 EXIT TST 
050546 104432 TRAP CSExIT 
000606 .WORD L10065-. 
7699 
7700 
7701 3° 
7702 ;LOCAL STORAGE FOR THIS TEST 
7 ‘ 
7705 050552 T18MSK: MASK OF UNUSED BITS IN READ STATUS BYTES 
7706 050552 377 .BYTE tC<000> iBYTE O MASK 
7707 050553 037 .BYTE t0<340> ;BYTE 1 
7708 050554 100 .BYTE tC<277> sBYTE 2 
AAs ososs5s 000 .BYTE 0 sMAKE IT EVEN 
7711 050556 T1SEXP: sEXPECTED DATA BUFFER 
7712 050556 000000 . WORD t?] sMESSAGE T 
050560 000000 . WORD f¢] sDATA FIELD LENGTH 
7714 050562 000000 . WORD 0 
7715 050564 000000 . WORD 0 3XSTO 
6 050566 000000 .WORD i?) sXST1 
7717 050570 000000 .WORD 0 sxST2 
7718 050572 000000 . WORD 0 3XST3 
7719 050574 000000 WORD t¢] 3XST4 (ALWAYS PRESENT FOR WRITE SUB) 
7720 050576 000000 . WORD 0 sREAD STATUS BYTE 1/0 
act 050600 000000 .WORD 0 sREAD STATUS BYTE 2 
7723 050602 377 020 T18xS: .BYTE 377,020 sREAD STATUS BYTE 0/1 EXPECTED BASE 
LAL 4 050604 000000 . WORD 0 sREAD STATUS BYTE 2 EXPECTED BASE 
7726 3° 
7727 sLOCAL TEXT MESSAGES FOR TEST 


7728 8° 


N14 
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TEST 7: STATIC TRANSPORT BUS INTERFACE TEST 


TST181D: -ASCIZ ‘Static Transport Bus Interface’ 
"WR WRITE CHARACTERISTICS Fai leg’ 
2. "WRITE SUBSYSTEM (Write Misc) Failed’ 
7733 050746 Be ‘WRITE SUBSYSTEM thons Status) Failed’ 
5 051013 162 T1I8CMP: ‘aa ‘Transport Bus Interface Signals NOT Negated After Unit 7 Selected’ 


; SETUP T18PK2 PACKET FOR READ STATUS 


tiesro: 
sSAVE R1-RS UNTIL NEXT RETURN 
$T18DT2 ‘WRITE SUBSYSTEM DATA BUFFER 
OPW. RoStatus. (RO) sSTORE READ STATUS COMMAND IN BSELO 
(RO) iCLEAR BSEL1 


; SETUP T18PK2 PACKET FOR WRITE MISC. 
tissMIsc: 
SA 


VREG SAVE R1-RS UNTIL NEXT RETURN 

MOV ;WRITE SUBSYSTEM DATA BUFFER 

MOVB , sSTORE WRITE MISCELLANEOUS IN BSELO 
MOVB J sSTORE INVERT EXTENDED FEATURES IN BSEL1 
RTS sRETURN 


iSet first 6 words of expd mess buffer = to recv since not testing 
8 Set unused bits in Read Status expd equal rcvd 


FiBsETEXP: 
OT1BEXP ,R2 sGET EXPD 
OT18BFR.RS ;GET READ STATUS RECV BUFFER 
08. RO 161 FIRST 8 WORDS EXP=RECV 
S$: R35, (R2)- 


BYTE 2 
BYTE 0 


83855RS888 
gcceas 


wowmw 
bt 
nnn 
Dz - — 
wx 


g 
BBRNBES 


& ae" 


BRSRRIISS 
: 


appears 


1S 
-*¢,°10>€177770 
{WRITE CHARARTERISTICS COMMAND PACKET 


Co SPEER PER 


ss 





Bis 
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SEQ 0183 
TEST 7: STATIC TRANSPORT BUS INTERFACE TEST ' 

7788 
7789 051270 +1 8PACKET: ;COMMAND PACKET FOR TEST 
7790 051270 . WORD 100004 ;WRITE CHARACTERISTICS COMMAND, WITH ACK 
7791 051272 051300 ;WORD T18DATA sADDRESS OF CHARACTERISTICS BLOCK 
7792 051274 000000 . WORD c¢) 
as 051276 000012 -WORD 10. sMESSAGE PACKET MINIMUM SIZE 
7795 051300 TI8DATA: sCHARACTERISTICS DATA BLOCK 
7796 051300 051312 .WORD T18BFR sADDRESS OF MESSAGE BUFFER 
7797 051302 000000 :WORD 0 
7798 051304 000024 -WORD 20. sLENGTH OF MESSAGE BUFFER 
77 306 -WORD O ;ESS,ENB,EAI,ERI 
7e00 051310 000007 -WORDB 7 ;SELECT RESERVED UNIT 7 
7802 
7803 051312 T18BFR: sMESSAGE BUFFER 
7804 051312 000000 .» WORD 0 sMESSAGE TYPE 
7805 051314 000000 . WORD 0 ;DATA FIELD LENGTH 
7806 051316 000000 -WORD O 3;RBPCR 
7807 051 000000 «WORD O 3XSTO 
7808 051322 000000 -WORD O 3XST1 
7 051324 000000 . WORD 0 3XST2 
7810 051326 000000 . WORD 0 3XST3 
7811 051330 000000 -WORD O 3XST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 
7812 051332 000000 -WORD O ;READ STATUS BYTE 1/0 RETURNED 
LF 051334 000000 -WORD O ;READ STATUS BYTE 2 

3 
Lt ;sWRITE SUBSYSTEM READ STATUS COMMAND PACKET 

3 
7818 051340 -*<,*10>€177770 
7820 051340 T18PK2: 
7821 051340 00006 WORD P.WRTSUB!P . ACK ey SUBSYSTEM WITH ACK 
7822 051342 051350 WOR T18DT2 LOW ADDRESS OF DATA BLOCK 
7823 051344 fe) HIGH ADDRESS OF DATA BLOCK 
woes 051346 000010 WORD 8. BUFFER EXTENT 
7826 051350 T18DTe2: ;DATA BLOCK 
7827 051350 000 .BYTE 0 sBSELO 
7828 051351 000 .BYTE O ;BSEL1 
7829 051352 000000 -WORD O ;SEL2 
7830 051354 000000 -WORD O sDATA 
7831 
7832 
7833 051356 ENDTST 

051356 L10065: 
051356 104401 TRAP CSETST 

yess -SBTTL TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 

3°? 
LS : TEST DESCRIPTION: 
7838 5 This test verifies the a Transport Bus 
7839 3 drivers, receivers, and eignas loopback logic. Note 
840 3 that the Static Transport test must have run 
i of 3 correctly for this test to provide meaningful results. 

3 
7843 3; TEST STEPS: 
7844 3 


Cis 
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TEST 8: TRANSPORT BUS INTERFACE LOOPBACK TEST 


SEQ 0184 


s REPEAT FOR LOOPCNT 
7646 ; BEGIN 
7847 ’ Do Subtest 1 - Loopback Control signals test 
7848 : Do Subtest 2 - Loopback Read/Write signals test 
7849 ’ Do Subtest 3 - Loopback Write Strobe test 
reat : Do Subtest 4 - Loopback Read Strobe test 
; 
7852 s-< 
7853 
7854 
785S 051360 BGNTST 
051360 T8:: 
7860 051360 012700 057572 MOV #TST19ID,RO sASCII MESSAGE TO IDENTIFY TEST 
7861 051364 004737 016550 JSR PC, TSTSETUP sD0 INITIAL TEST SETUP 
7862 051370 012737 000012 002216 MOV #10. ,LOOPCNT sPERFORM 10 ITERATIONS 
Ls os 051376 T19LOOP : 
voce -SBTTL TEST 68: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
7867 see 
rose ; TEST 8: SUBTEST 1: 
; 
rere ; SUBTEST DESCRIPTION: 
; 
7872 ; This subtest verifies the Transport Control loopback 
7873 3 path can transmit and receive correctly. The 
7874 3 control signals ere all 1 k signals other 
Le Le ; than the read/write date (IW<7:0> and IR<7:0>). 
; 
La Js ; TEST STEPS: 
; 
7879 : The loopback signals IFAD,ITADO,ITAD1 are the tape unit select 
7880 ; lines. Since reserved unit 7 must remain selected these signals 
7881 ; ere always set low. This further means the signals they drive 
vese : CISPEED,IRDY,IONL) are only tested in the low state. 
; 
7684 ; BEGIN | . Me See 
7885 ; Write to TSSR ister to soft initialize the controller _ 
7886 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
7887 ; If Extended Features Hardware Switch Clear then: 
7888 ; Do Write Sovetes Write Miscellaneous to Set Extended Features. 
7889 : Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
7890 ; Do e Write Subsystem WRITE NPR to set tape direction out and L 
78691 : Do Write Subsystem Write Control to CLEAR loopback signals group 1. 
7892 : Do Write Subsystem Write Format to CLEAR loopback signals + oa 2. 
7893 3 (the loopback signals have to be cleared here due to the flip-flops 
7894 ; thet are set on a 1 to O transition (IHER, IFMK,ICER)) 
7895 ; Do a Write Subsystem Write Misc to Reset Tape Status F-FLOPS 
7896 ; Do ea Write Subsystem READ STATUS 
7897 ; If all Tape Stetus 2 (ICER,IFMK,IHER) flip-flop 
ht 3 signals NOT=0 Then Print Error 
’ 
7900 s REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
7302 | eeDS Write Supeyeten Uirite Contrel te Drive leopbeck gignel 1 
: ite ystem Write Control to Drive signals group 1. 
7903 3 Do Write Subsystem Write Format to Drive loopback signals group 2. 
7904 Do @ Write Subsystem READ STATUS nil 
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TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


7945 
7946 
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016034 


002222 


061742 
000200 
061572 
062070 
000000 
016376 


002222 


000012 


; 
10$: 


12$: 


22$: 


30$: 


If loopback date NOT= data sent Then Print Error 

e Write pares rms wate to Reset Tape Status F-FLOPS 
e Write ag ae ATUS 

all Tape Status 2 Cicer® Ire IHER) flip-flop 

signals NOT=0 Then Print Error 


38 S 


BGNSUB AAAAAAA ALAA Se SAAS SSS 
TRAP C$BSUB 

Write to TSSR register to soft initialize the controller 

JSR PC, SOFINIT 


;sWRITE TO TSSR TO aor INITIALIZE 
BCS 10% :BR IF SOFT INIT OKAY 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
ERRDF  ERRNO,SFIERR,SFIMSG }DEVICE FATAL DURING INIT 
TRAP CSERDF 
WORD 800 
.WORD SFIERR 
.WORD SFIMSG 
Do wae SRN TESST ICS to check for Extended Features Switch 
CLR FLG ;CLEAR FATAL ERROR FLAG 
MOV OTIOPACKET, R4 ;GET THE ADDRESS OF COMMAND PACKET 
JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ pseor oy ERROR IF FORCER=1 
BCS 15$ ;BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP C$EROF 
: 801 
— T19SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP 3LOOP ON ERROR, IF FLAG SET 


TRAP C$CLP1 
If Extended Features Hardware Switch Clear then: 
Do Write Seeveten Write Miscellaneous to Set Extended Features. 
MOV OT19BFR sMESSAGE BUFFER ADDRESS 
BIT @X2. exth. XST2CR1) }EXTENDED FEATURES SWITCH SET? 
BNE 30 ;6R IF YES 
sSETUP PACKET FOR WRITE MISC poem 


MOV OT19IPK2 ,R4 iGET wire SUBSYSTEM COMMAND PACKET 
MOV R4, TSOBCRS) sSET_ THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 22% = @aDFORCE ERROR IF FORCER=1 
BCS 30% sBR IF CARRY SET (GOOD RETURN) 
wy RO,R1 sSAVE CONTENTS OF TSSR 


ERRDF  ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR mes Ail 
-WORD 80, 
-WORD 1192SSR 
«WORD PKTSSR 


INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG SET 


SEQ@ 0185 


E15 
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TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


051562 
7947 
7948 051564 


RRRend 


104406 


005037 
012704 
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002222 


000100 


000040 
061432 
062070 


000000 
016376 


002222 


000200 
000100 
000040 
061532 
062070 


000000 
016376 


42%: 


TRAP C$CLP1 
Do —— OMAACTERTSTICS to select reserved un 
CLR TFLG ;CLEAR FATAL Canon FLAG 
MOV OTIOPACKET, R4 iGET THE ADDRESS OF COMMAND PACKET 
JSR PC,.WRTCHR 300 WRITE CHARACTERISTICS COMMAND 
FORCERROR 42% s;@@DFORCE ERROR IF FORCER=1 
BCS 50$ ;6R IF CARRY SET ($000 RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO, 719SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
. WORD 3 
WORD T19SSR 
.WORD PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP 3LOOP ON ERROR, IF FLAG Ser oan 


direction out poe L 


MOV OT19IPK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSOBC(RS) sSET T KET ADDRESS TO EXECUTE 

JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 62% rt. ORCE ERROR IF FORCER=1 

BCS 70% sBR IF CARRY SET ($008 RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRNO, T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

TRAP C$ERDF 
-WORD 804 
«WORD 1194SSR 
WORD PKTSSR 


INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP 


sLOOP ON ERROR, IF FLAG +. 


C$CLP1 


Do Write Subsystem Write Control to CLEAR loopback elgveke 4 group 1. 
Do Write Subsystem Write Format to CLEAR loopback signels grou 
(the leepbeck signals have to be cleared here due to the flip-flops 
af one set on a 1 to O transition sy »IFMK,ICER 
H 
BIC OWC .IFAD,RO sIFAD MUST ALWAYS =0 
BIC OWC .IOTAD, sITADO MUST ALWAYS =0 
BIC @WC .I1TAD,RO sITAD1 MUST ALWAYS =0 
JSR PC, TISWCTL sSETUP P. FOR WRITE CONTROL 
MOV OT19PK2,R4 3GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDOBCRS) 3;SET T T ADDRESS TO EXECUTE 
JSR PC, CHKT sWAIT FOR B. - TO SET 
FORCERROR 82$ jgeer ORCE ERROR IF FORCER=1 
BCS 90% 3;BR IF CARRY SET ($008 RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,T197SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
-WORD 805 
-WORD T197SSR 
-WORD PKTSSR 


SEQ 0186 


FiS 
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SEQ 0187 
TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


7989 052012 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

7990 052016 90$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
052016 104406 TRAP C$CLP1 

7991 052020 005000 CLR RO sSET FORMAT DRIVE DATA=0 

7992 052022 004737 061552 JSR PC, TISWFMT sSETUP PACKET FOR WRITE Pomme 

7993 052026 012704 062070 MOV OTI9PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

7994 052032 010465 000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 

7995 052036 004737 016376 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

7996 052042 FORCERROR 102¢ jeer Cave ERROR IF FORCER=1 

7997 052056 103407 BCS 110$ ;BR IF CARRY SET (GOOD RETURN) 

7998 052060 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

7999 052062 NEXT .ERRNO 

8000 052062 102$: ERRDF  ERRNO,T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052062 104455 TRAP C$ERDF 
052064 001446 -WORD 806 
052066 060222 ‘ -WORD 1198SSR 
052070 012106 «WORD PKTSSR 

8001 052072 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

8002 052076 110$: CKLOOP ;LOOP ON ERROR, IF FLAG Ser 
052076 104406 CS$CLP1l 

8003 3 Do a Write Fibs stem Write Misc to Reset tape Status F- FLOPS 

8004 052100 004737 061410 JSR PC,T ORSFIF sSETUP PKT FOR WRITE MISC Roost + eee Status F-FLOPS 
052104 012704 062070 MOV eTigPKe a4 sGET WRITE SUBSYSTEM COMMAND P 

8006 052110 010465 000000 MOV R4, TSDBC(RS) ;SET THE PACKET ADDRESS TO EXECUTE 

8007 052114 004737 016376 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

8008 052120 FORCERROR 122$ oe0r ORL ERROR IF FORCER=1 

8009 052134 103407 BCS 130$ ;BR IF CARRY SET (GOOD RETURN) 

8010 052136 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

8011 052140 NEXT .ERRNO 

8012 052140 122%: ERRDF  ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052140 104455 TRAP CSERDF 
052142 001447 -WORD 807 
052144 057670 —_ T192SSR 
052146 012106 PKTSSR 

8013 052150 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

8014 052154 130$: CKLOOP sLOOP ON ERROR, IF FLAG sey 
052154 104406 CS$CLP1 

8015 3 Do a Write mperetns READ STATUS 

8016 Fy If all Tape Stetus 2 (ICER,IFMK,IHER) flip-flop 

8017 3 signels me i 0 Then Print Error 

8018 052156 004737 061370 JSR PC,T19SRD sSETUP PACKET FOR READ al 

8019 052162 012704 062070 MOV OT19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

8020 052166 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

8021 052172 004737 016376 JSR PC,CHKTSSR WAIT FOR SSR TO SET 

8022 052176 FORCERROR 132¢ Be0F Ont ERROR IF FORCER=1 

8023 052212 103407 BCS 140$ ;BR IF CARRY SET (GOOD RETURN) 

8024 052214 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

8025 052216 NEXT . ERRNO 

8026 052216 132$: ERRDF ERRNO,T193SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
052216 104455 TRAP C$EROF 
052220 001450 -WORD 808 
052222 057734 -WORD 1T193SSR 
052224 012106 -WORD PKTSSR 

8027 052226 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

8028 052232 140%: CKLOOP ;LOOP ON ERROR, IF FLAG a. 
052232 104406 C$CLPi 

8029 052234 004737 061630 JSR PC, TISSETEXP sSET WORDS 0-7 EXPD=RECV CNOT TESTING) 


G15 
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8030 
8031 
32 


052240 
eas 


052466 
052472 


012701 
0 
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057472 
061762 


057404 
002754 


002320 
000200 
000100 
000040 
002314 
002314 
061654 


061532 
062070 


000000 
016376 


002222 


002314 
061654 


152$: 


160$: 


MOV OTISEXSTA,R1 sGET EXPECTED READ STATUS 
MOV OT1IBFSTA,R2 sGET RECV READ STATUS 

MOV CR2),(R sSET EXPD @6 = RECV TEMP 
BIC ICER,(R1) sSET EXPD ICER = 

BIC @S1.IFMK,(CR1) sSET EXPD IFMK =0 

BIC #S1.IHER,(R1) sSET EXPD IHER =0 

MOV 2(R2),2(R1) sSET EXPD WORD #9 = RECV (NOT TESTING) 
CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 
MOV OT19BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
MOV @T19EXP ,R2 sEXPD ADDRESS 

MOV #20. ,R3 sNUMBER OF BYTES TO COMPARE 
JSR PC, sEXPD EQUAL RECV? 

FORCERROR 152¢,NOTSSR 


3@a0 
BCS 160% ;BR IF YES 
NEXT. 


ERRNO,T197CMP,MSGLOOP ;REPORT ERROR 
TRAP CSERHRD 


«WORD T1197CMP 

.WORD MSGLOOP 
CKLOOP sLOOP ON ERROR, IF FLAG SET 

TRAP C$CLP1 


; REPEAT FOR ALL_TEST PATTERNS IN TSTBLK TABLE 
CLR TISPREV 


200%: 


212%: 


MOV @TSTBLK ,R3 


MOV (R3)- ;GET A TEST PATTERN 
MOV R3,1STPTR ;SAVE POINTER INTO TSTBLK 
BIC oC . IFAD, RO sIFAD MUST ALWAYS =0 
BIC @WC . TOTAD RO ;ITADO MUST ALMAYS =0 
BIC oc. Tit AD. RO ;ITAD1 MUST ALWAYS =0 
MOV RO, DATA SET DATA PATTERN 


Do Write Subs stem Write Control to Drive loopback signals group 1. 
CALL TISCNVT 0 SETUP WRITE CONTROL PATTERN — os 

DATA,RO GET TEST PATTERN 
OSR PC, TISCNVT }CONVERT PATTERN TO CONTROL DRIVE MASK 
JSR PC, TIOQWCTL 


MOV OTI9PK2,R4 ; WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
PC,CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR 212¢ \se ee ERROR IF FORCER=1 

BCS 220$ 3BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO,7T197SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP C$ERDF 
. WORD 10 
—_ T197SSR 

PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG +e eam 


Do Write Subsystem Write Format to Drive loopback s als S. 
CALL TISCNVT t6 SETUP WRITE CONTROL PATTERN ‘euls one 


sGET TEST PATTERN 
JSR PC. TISCNVT iCONVERT PATTERN TO FORMAT DRIVE MASK 


SEQ 0188 


H1i5 
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061552 
062070 


000000 
016376 


002222 
061370 
062070 


000000 
016376 


002222 


001000 


002000 


232%: 


2523: 


275$: 


280$: 


SWAB 
JSR PC, TISWEMT 
MOV $T19PK2,R4 
MOV R4,TSDBCRS) 
JSR CHKTSSR 
FORCERR 232$ 
BCS 40$ 
MOV RO,R1 
NEXT. ERRNO 
ERRDF €ERRNO,T198SSR,PKTSSR 
INC FATFLG 
CKLOOP 
2 a Write serates READ STATUS 

PC,T19 
MOV OTI9PK2 ,R4 
MOV R4,TSDBCRS) 
JSR PC; CHKTSSR 
FORCE! 252% 
BCS 
MOV RO,R1 
NEXT. €! 

ERRNO, 7193SSR,PKTSSR 
INC FATFLG 
CKLOOP 
If loopback da 
JSR BE TI SSETEXP 
MOV OTI9SEXSTA,R1 
Mt 
MOV T19PREV, 
MOV DATA,R3 
MOV 1. THER,R4 
BIC R4,(R1) 
BIT 4.RO 
BEQ 275$ 
BIT R4,R3 
BNE 2753 
BIS R4,(R1) 
MOV 0Si.IFMK,R4 
BIC R4,(R1) 
BIT R4 
BEQ 280$ 
BIT R4,R3 
BNE 280$ 
BIS ,CR1) 
MOV 951. ICER,R4 
BIC »CR1) 


WRITE FORMAT DATA RETURNED IN HIGH BYTE 
; SETUP PACKET FOR WRITE By! 
sGET +! | SUBSYSTEM COMMAND PACKET 
sSET_ THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 


@aDFORCE ERROR IF FORCER=1 
:8R IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR hones: all 
-WORD 611 
-WORD 1198SSR 
«WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG =. 
C$CLP1 
sSETUP PACKET FOR ne Ud 
seer WRITE EKET ADDR COMMAND P 


;WAIT FOR SSR T 

a or ERROR IF FORCER=1 
sBR IF CARRY SET (Secs Reruet) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


C$ERDF 
. 812 
ari T193SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG . 
CSCLP1 


sSET WORDS 0-7 EXPD=RECV (NOT TESTING) 
sGET EXPECTED — STAT 

sGET RECV READ STATUS 

sSET EXPD WORD #8 TO TEST DATA FIRST 
sGET PREVIOUS M11 Ro, TERN 


NO 
iSET EXPD IFMK =] 
sSETUP ICER EXPECTED 
sSET EXPD ICER =0 


SEQ 0189 


115 
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8125 
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052732 
052734 
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030400 BIT R4,RO ;PREVIOUS =1? 
001403 BEQ 285$ ;BR IF NO 
030403 BIT R4,R3 ;CURRENT #0? 
001001 BNE 285$ ;8R IF NO 
050411 BIS Ra CRI) iSET EXPD ICER *1 
011100 285%: MOV CRI ;GET_EXPD WORD 
; If previous. aS TDENT#3 and current is IIDENT=1 then EXPD= 0 else 1 
012704 004000 MOV #S1.IIDENT,R4 
BIS ASSUME EXPD=1 
030437 057404 BIT R4, TIOPREV ;PREVIOUS IIDENT=1? 
001403 BEQ 88$ ;BR IF NO 
030403 BIT R4,R3 :1S CURRENT IIDENT=1? 
001401 BEQ 2883 ;8R IF NO 
BIC R4,RO 3SET EXPD=0 
052700 040000 288$: BIS $S1.I2RES,RO sIRESV2 EXPD ALWAYS=1 
052700 020000 BIS $51. I1RES.RO ;IRESV1 EXPD ALWAYS=1 
042700 100000 BIC $51 . PARERR ,RO ;IGNORE PARERR 
032712 100000 BIT #51. PARERR.(R2) IS PARERR SET IN RECV? 
001402 BEQ 290 38R IF NO 
052700 100000 BIS #51. PARERR,RO SET IN EXPD 
010011 290: MOV RO,(R1) ;SETUP FINAL EXPD IN WORD 08 
016261 000002 000002 MOV 2(R2),2(R1) ;SET EXPD WORD #9 = RECV (NOT TESTING) 
CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 
012701 061742 MOV $T19BFR,R1 ;LOW RECV ADDRESS FOR CKMSG2 
012702 057452 MOV OT19EXP_R2 ;EXPD ADDRE 
012703 000024 MOV $20. .R3 ;NUMBER OF BYTES TO COMPARE 
004737 011540 JSR PC, ;EXPD EQUAL RECV? 
FORC 302¢ ,NOTSSR ; 
103404 BCS 310$ ;BR IF YES 
302¢: ERRHRD ERRNO,T198CMP,MSGLOOP ;REPORT ERROR 
1 TRAP § C$ERHRD 
001455 .WORD 613 
060761 "WORD 71198CMP 
013124 “WORD 
310%:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
104406 TRAP —s- C$CLP1 
; Do e Write Subsystem Write Misc to Reset a Stetus F-FLOPS 
004737 061410 JSR PC, TIORSFIF ;SETUP OR WRITE MISC Reset STATUS 
012704 062070 MOV OTi9PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
004737 016376 JSR * CHKTS ;WAIT FOR SSR TO SET 
F ja@0 @aDFORCE ERROR IF FORCER=1 
103407 BCS 330% ;BR IF CARRY SET GOOD RETURN) 
010001 MOV. ; RO,R1 }SAVE CONTENTS OF TSSR 
322$: ERRDF ERRNO,T192SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
104455 TRAP —s- C$ERDF 
001456 .WORD 614 
057670 - WORD T192SSR 
012106 TSSR 
005237 002222 INC FATFLG :SET FATAL ERROR FLAG 
330%:  CKL ;LOOP ON ERROR, IF FLAG SET 
104406 CS$CLP1 
3 Do ea Write Fisexstes READ STATUS 
004737 061370 JSR PC,719 ;SETUP PACKET FOR READ STATUS 
012704 062070 MOV OT19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 


J15 
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SE@ 0191 
TEST 6: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 


8171 053162 010465 000000 MOV R4, TSDBCRS) 3;SET THE pace! Aa: ee TO EXECUTE 
8172 053166 004737 016376 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
8173 053172 FORCERROR 342$ @aOFORCE ERROR IF FORCER=1 
6174 053206 103407 BCS 350$ ;BR I F CARRY SET (GOOD RETURN) 
6175 053210 010001 MOV RO,R1 eave” CONTENTS OF TSSR 
6176 053212 NEXT .ERRNO 
6177 OS3212 342$: ERROF ERRNO, T193SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
053212 104455 TRAP C$ERDOF 
053214 001457 -WORD 815 
053216 057734 . -~ T193SSR 
053220 012106 PKTSSR 
8178 053222 37 002222 INC FATFLG ;SET FATAL ERROR FLAG 
6179 053226 350$: CKLOOP ;LOOP ON ERROR, IF FLAG ser 
053226 1 C$CLP1 
8180 053230 737 6 JSR PC, TISSETEXP sSET WORDS 0-7 EXPD=RECY” (NOT TESTING) 
8181 053234 012701 057472 MOV @TISEXSTA,R1 ;GET EXPECTED READ STATUS 
61 3240 012702 061762 MOV OT19BFSTA, ;GET RECV READ STA 
6183 053244 011211 MOV ( C ;SET E = RECV TEMP 
8184 053246 711 002000 BIC #S$1.ICER,(R1) 3SET EXPO ICER = 
6185 053252 042711 001000 BIC @S1.IFMK,(R1) sSET EXPD IFMK =0 
6186 053256 042711 000400 BIC #S1.IHER,(R1) ;SET EXPD IHER =0 
8187 053262 016261 000002 000002 MOV 2(R2),2(R1) ;SET EXPD WORD #9 = RECV (NOT TESTING) 
6188 053270 CLR RO ;HIGH RECV ADDRESS FOR CKMSG2 
6189 053272 012701 061742 MOV $T196FR,R1 ;LOW RECV ADDRESS FOR 
053276 012702 057452 MOV OT19EXP ,R2 sEXPD ADDRESS 
6191 053302 012703 000024 MOV 620. ,.R3 ;NUMBER OF BYTES TO COMPARE 
92 053306 004737 011540 JSR PC. CKMSG2 3EXPD EQUAL RECV? 
6193 053312 F 362% ,NOTSSR ;aa0 
6194 053 103404 6cS 370$ ;BR IF YES 
6195 053324 NEXT .ERRNO 
6196 053324 362%: ERRHRD ERRNO,T197CMP,MSGSTAT sREPORT ERROR 
053324 104456 TRAP CSERHRD 
053326 001460 -WORD 816 
053330 060673 WORD T197CMP 
053332 012410 -WORD MSGSTAT 
8197 053334 370%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
ance 053334 104406 TRAP C$CLP1 
8199 053336 013737 002314 057404 MOV DATA, TISPREV ;SETUP PREVIOUS DATA FOR EXPD CALC. 
8200 053344 013703 002320 MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
6201 053350 020327 003064 CMP R3, @TBLEND sEND OF TSTBLK? 
6202 053354 103002 BHIS 400$ ;BR IF YES 
8203 053356 000137 052352 JMP 200% 300 NEXT TSTBLK PATTERN 
053362 400%: 
8206 053362 ENDSUB 34////////¢/7/ END SUBTEST ////////// 
053362 L10067: 
» 053362 104403 TRAP CsESuB 
8208 053364 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
8209 053370 001402 BEQ 460$ sBRANCH IF NOT 
10 053372 004737 017242 JSR PC ,.CKDROP sTRY TO DROP THE UNIT 
11 053376 4603: 


K15 
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SEQ 0192 
TEST 68: SUBTEST 1: LOOPBACK CONTROL SIGNAL TEST 
621 
ete -SBTTL TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST 
6219 see 
assy s TEST 8: SUBTEST 2: 
3 
ase 3; SUBTEST DESCRIPTION: 
3 
8224 3 This subtest verifies the Read/Write date | path. 
8225 : The Read/Write dete signals ere IR<7:0> and iW<7:0> 
8226 3 respectively. 
8227 : 
8228 ; TEST STEPS: 
Be : 
3 
8231 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
ae3e ; BEGIN 
823 3 Write to TSSR r copister to soft initialize the controller 
8234 ; Do WRITE CHARACTERISTICS to check for Extended Features Switch 
6235 ; If Extended fares ee Switch Clear then: 
8236 F Do Write Subeyeten Write Miscellaneous to Set Extended Features. 
6237 3 Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
8238 3 Do a Write = NPR to set tape direction out and Loopback 
6239 ; Do e WRITE NPR loopbeck and tape direction OUT 
8240 3 Do e WRITE FIFO gy byte count equel to 1 and Tape direction OUT 
824) 3 Do e READ FIFO - algal : te eee = to load tape out write latch 
oons 3 Do e WRITE NPR to seme ane ape direction IN 
824 3 Do e WRITE FIFOs cien byte coun trequel t to 1 and Tose direction IN 
8244 8 to strobe 1 date into F 
8245 : Do ea READ FIFO wie tape direction IN to read dete 
8246 3 If Date read from FIFO NOT= to Date sent Then Print Error 
6247 3 Do e Wri Subsystem READ STATUS 
6248 : If Input Ready NOT=1 Then Print Error 
8249 ; If Output Ready NOT=0 Then Print Error 
6250 3 If Dete In Miss NOT=0 Then Print Error 
8251 3 END 
aad 
8258 053376 BGNSUB s/////4/4///4 BEGIN SUBTEST /////4///// 
053376 78.2: 
053376 104402 TRAP csesus 
BOSG i Write to TSSR register to soft initialize the controller 
6255 053400 $: 
6256 053400 004737 016034 JSR PC, SOF INIT sWRITE TO TSSR TO / ae INITIM IZE 
6257 053404 103405 6CcS 10% ;6R IF SOFT INIT OK 
8258 053406 010001 RO,R1 sSAVE CONTENTS OF TSSR 
6259 053410 ERRNO, SFIERR , SFIMSG {DEVICE FATAL DURING INIT 
053410 104455 TRap CSEROF 
12 o1ees -WORD 616 
053414 003654 .WORD SFIERR 
053416 012074 . WORD SF 
8260 Do were. PUMACTERESTICS to check for Extended Features Switch 
8261 053420 005037 002222 10$: CLR sCLEAR FATAL ERROR FLAG 
4 | 053424 012704 061720 MOV OTIOPACKET RA iGET THE ADORESS OF 
8263 053430 004737 010662 JSR PC,WRTCHR :00 WRITE TERISTICS 
6264 053434 FORCERROR 12¢ nh - g If F 1 
8265 053450 103407 BCS 15% 38R IF C (008 RETURN ) 
6266 053452 010001 MOV RO,R1 SAVE CONTENTS” OF TSSR 


ari aa Sa aes ten inet occa 


Lao 
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NEXT . ERRNO 
12s: ERRNO, T19SSR ,PKTSSR sDEVICE FATM Su” rane to = 


- 


FATFLG sSET FATA ERROR Ff. AG 
sLOOP ON ERROR 


<2 
8 


xtended Features Herdwere Switch —_s 1- 


Wri $e, Sbevgre= Write Miscell <<< . 
exe. "EXT -XST2CRL) hi aan Sui* 4 SET? 


‘ 


061742 
000200 


fs] 
H 
= 


061572 
062070 


B88oR 


ba 


000000 
016376 


833 


re 


sDEVICE FATM Saf) FAILED TO SET 
TRAP 


:SE? Fat 


00? ON ou ERara. FLAG < 


Do URITE CHARACTERISTICS to select 
MOV QPACKET 6 fetes oe & Cre? 
So wat STERISTICS C Coren 
FF ORE ERROR Tr F SACERn 
lar ReTUte) 


Cr mieNs OF “$O3R 
, FAT F v 
ama % 33h mes 
m0 
ORO 
(SET. 0A ERROR FLAG 
SO$: CKLOOP OP i ERROR, FL, a 


; REPEAT FOR a TEST PATTERNS IN "STHLX hoary 
012703 OTSTELK AS 


002754 
012337 4 100%: 
042737 177 

010337 002320 R3.7S SETS TEUREMT rors POINTER 


on te ee oe SFr Stee cite OUT 


RO 
a ey FO" WRITE NPR 
SUBS STEM COMMAND 


sGET war PACKET 





M15 
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8309 053674 010465 000000 MOV R4, TSDBCRS) :SET THE PACKET ADDRESS TO EXECUTE 
8310 053700 004737 016376 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
8311 053704 FORCERROR 102% @a0FORCE ERROR IF FORCER=1 
8312 053720 103407 BCS 105% ;6R IF IF CARRY SET (6000 RETURN) 
8313 053722 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 
8314 053724 NEXT . ERRNO 
8315 053724 102%: ERRNO, 7194SSR ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
05%724 104455 TRAP CSEROF 
053726 001464 -WORD 820 
053730 060001 .WORD T194SSR 
053732 012106 -WORD PKTSSR 
8316 053734 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8317 053740 105$: CKLOOP ;LO0P ON ERROR, IF FLAG SET 
8318 —— Do ea WRITE FIFO with T sake out — 
: 2 wi te count ine ape direction 
8319 053742 012700 000001 MOV #1,RO0 wie suRI te°? 
8320 053746 012701 002314 MOV @DATA,R iFIFO warTe DATA ADDRESS 
8321 053 737 061476 JSR PC, T19WF IF sSETUP T19PK2 FOR WRITE FIFO 
8322 053756 012704 062070 MOV OT19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
8323 053762 010465 000000 MOV R4,TSDBC(RS) iSET THE PACKET ADDRESS TO EXECUTE 
6324 0537 004737 016376 JSR PC, CHKTSSR ;WAIT FOR SSR TO SET 
8325 053772 F 107% @aDFORCE ERROR IF FORCER=1 
8326 103407 BCS 110% ;BR IF CARRY SET (6000 RETURN) 
8327 054010 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
8328 054012 NEXT . ERRNO 
8329 054012 107$: ERRNO, 7195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
054012 104455 TRAP CSERDF 
054014 001465 . WORD 1 
054016 060044 -WORD T195SSR 
054020 012106 al PKTSSR 
8330 054022 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 
8331 054026 110%: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
054026 104406 TRAP C$CLP1 
: e e READ FIFO with tape direction OUT to joes t out write latch 
8333 054030 012700 000001 RO 3sSET READ BYTE C 
34 054034 004737 061456 ns PC, TISRFIF + SETUP T19PK2 FOR READ FIFO 
054040 012704 062070 MOV OT19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND P 
054044 010465 000000 MOV R4, TSDBCRS) 3 THE P SS TO EXECUTE 
6337 054050 004737 016376 JSR PC ..CHKT sWAIT FOR SSR TO 
054054 F 122% jgecronce ERROR IF FORCER=1 
8339 054070 103407 BCS 130 3BR IF CARRY SET (GOOD RETURN) 
054072 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
8341 054074 NEXT . ERRNO 
6342 054074 122%: ERRDOF ERRNO,T196SSR,PKTSSR ;sDEVICE FATAL SSR FAILED TO SET 
054074 104455 TRAP CSEROF 
054076 001466 . WORD 822 
054100 060110 .WORD 1196SSR 
0541 012106 .WORD PKTSSR 
8343 054104 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
8344 054110 130%: CKLOOP 3LO0P ON ERROR, IF FLAG Ser. 
054110 104406 CsCLPl 
B34 ’ Do e WRITE NPR to set loupback and Ate Out direction IN 
8 054112 005000 CLR , me rele OUT TO SET TAPE DIRECTION IN 
8347 054114 052700 000040 BIS LOOP ,RO OOPBACK 
8348 054120 004737 061432 JSR Be TiSSNeR ET T19PK2 FOR WRITE NPR 
8349 054124 012704 062070 MOV AT Se R4 3;GET WRITE SUBSYSTEM COMMAND PACKET 
8350 054130 010465 000000 MOV R4,TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE \ 


SEQ 0194 


Nis 
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8351 054134 004737 016376 


103407 
010001 


104455 


000001 
002314 
061476 
062070 


000000 
016376 


000001 
061456 
062070 


000000 
016376 


INC 
CKLOOP 


PC ,CHKTSSR 
142$ 
ERRNO, T194SSR,PKTSSR 


FATFLG 


ERRNO, T19SSSR ,PKTSSR 


FATFLG 


sWAIT FOR SSR TO SET 
IF FORCER=1 


@aDFORCE ERROR 
BR IF CARRY SET (GOOD RETURN) 
}SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CS$EROF 


-WORD 823 
-WORD 1194SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG <r. 


C$CLP1 
1 and Tape éhiesnion IN 


ITE 1 BYTE 
iFIFO WRITE DATA ADDRESS 
9PK2 FOR WRITE FIFO 
+ STEM COMMAND PACKET 
sSET_ THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 
IF FORCER=1 


@ADFORCE ERROR 
BR IF CARRY SET (GOOD RETURN) 
;SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CS$EROF 

-WORD 862 
- WORD 

sSET FATAL ERROR FLAG 

sLOOP ON ERROR, IF FLAG a 


4 
T195SSR 
PKTSSR 
CsCLP1l 


e@ READ FIFO with tape direction IN to read date 
Dete we from FIFO NOT= to Date sent Then Pe Ce Error 


sSET READ BYTE 
; SETUP T19PK2 FOR READ FIFO 
3GET WRITE SUBSYSTEM CoremD PACKET 
3SET THE PACKET ADDRESS TO EXECUTE 
;WAIT FOR SSR TO SET 

tT .. ERROR IF FORCER=} 
:8R IF CARRY 


($008 RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 


196SSR 
PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG ser 


pe ReaD Oe stis (NOT Testing) 


Hea) RECV READ STATUS 

iSET EXPO WORD @6 = DATA 

sSET EXPO are = RECV (NOT TESTING) 
sHIGH RECV SS FOR CKMSG2 
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8393 054376 012701 061742 MOV OT19BFR,R1 
8394 054402 012702 057452 MOV OT19EXP .R2 
8395 054406 012703 000022 MOV $18. ,R3 
8396 054412 004737 011540 JSR ‘ 
8397 054416 F 202$ ,NOTSSR 
054426 103404 BCS 210$ 
8399 054430 NEXT. 
054430 202¢: ERRHRD ERRNO, T199CMP,MSGSUB 
054430 1044 
054432 001472 
054434 061050 
054436 014002 
8401 054440 210%: CKLOOP 
054440 104406 
8402 : Do @ Write Subsystem READ STATUS 
8403 : ‘° Ce "herte + abe | 
8404 3 = 
8405 ; If Date In Mise NOT=0 
8406 054442 004737 061370 JSR PC,T19SRD 
8407 054446 012704 062070 MOV OTi9PK2,R4 
054452 010465 000000 MOV R4, TSOBCRS) 
054456 004737 016376 JSR PC: CHKTSSR 
8410 F 212% 
8411 054476 103407 BCS 220% 
8412 054500 010001 MOV RO,R1 
8413 054502 NEXT. ERRNO 
8414 054502 212$: ERRDF ERRNO,T193SSR,PKTSSR 
054502 1044 
054504 001473 
054506 0577 
054510 012106 
8415 054512 002222 FATFLG 
8416 054516 220$:  CKLOOP 
054516 1 
8417 054 004737 061630 JSR PC, TI9SETEXP 
8418 054524 012701 057472 MOV OTISEXSTA,R1 
8419 054530 012702 061762 MOV OT19BFSTA.R2 
054534 012221 MOV (R2)+,(R1 3+ 
8421 054536 011211 MOV (R2),(R1) 
8422 054540 711 000020 BIS @S2.INRDY,(R1) 
3 054 042711 BIC #52. OUTRDY, (R1) 
8424 054550 042711 000200 BIC @S2.DIM, (Ri) 
8425 054554 CLR 
8426 054556 012701 061742 MOV $T19BFR,R1 
8427 054 012702 057452 MOV OT19EXP.R2 
8428 054 012703 000024 MOV $20. ,R3 
8429 054572 737 011540 JSR PC, 
8430 054576 FOR 232% ,NOTSSR 
8431 103404 BCS 240$ 
8432 054610 NEXT. ERRNO 
8433 054610 232%: ERRHRD ERRNO,T196CMP,MSGSTAT 
054610 104456 
054612 001474 
054614 060610 
054616 012410 
8434 054620 240%:  CKLOOP 
054620 104406 


SEQ 0196 


sLOW RECV ADDRESS FOR CKHSG2 
NUMBER OF BYTES TO COMPARE 
SEXPD EQUAL RECV? 


:@a0 

iBR IF YES 

sREPORT ERROR 
TRAP CS$ERHRD 
. WORD 
-WORD T199CMP 
. WORD 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


Then Print Error 
Then Print Error 
Then Print Error 


sSETUP PACKET FOR READ STATUS 
sGET WRITE SUBSYSTEM COMMAND PACKE 
3SET_ THE rssh 10. Ser SS TO EXECUTE 


sWAIT FOR SSR T 
—_ ORCE ERROR IF FORCER=1 
3BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF T 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 
. WORD 
. WORD 
. WORD 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG -.. 


TRAP Cs$CLP 
S 0-7 ee etitus (NOT TESTING) 


SS_FOR 
sLOW RECV ADDRESS FOR CKMSG2 
ert ADORESS 
OF BYTES TO COMPARE 
SEXPD EQUAL RECV? 


:aa0 

iBR IF YES 

sREPORT ERROR 
TRAP CS$ERHRD 
-WORD 828 
«WORD T196CMP 
.WORD MSGSTAT 

sLOOP ON ERROR, IF FLAG SET 
TRAP C$CLPi 
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SEQ 0197 
TEST 8: SUBTEST 2: LOOPBACK READ/WRITE SIGNALS TEST ; 
8435 
8436 
8437 
8438 054622 FORCEXIT 255$ 3;aa0 
8439 054632 013703 002320 MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
054636 020327 003064 CMP R3,@TBLEND sEND OF TSTBLK? 
8441 054642 103002 BHIS 255 ;8R IF YES 
8442 054644 000137 053636 JMP 100$ 300 ANOTHER TSTBLK PATTERN 
8443 054650 255$: 
8445 054650 ENDSUB 34//////////7/ END SUBTEST ////////// 
054650 L10070: 
0546 104403 TRAP CsESUB 
8447 054652 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
8448 054656 001402 BEQ 260$ ;BRANCH IF NOT 
8449 054660 004737 017242 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
8450 054664 260$: 
3 
ates -SBTTL TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
8455 zee 
8456 ; TEST 8: SUBTEST 3: 
8457 ; 
aces ° ; SUBTEST DESCRIPTION: 
3 
8460 : This subtest ao the Write Strobe loopback path 
8461 3 can strobe data from the FIFO to the Data lines. 
8462 3 The signal IRESV3 drives IWSTR (write gerese? to write 
8463 : data from the FIFO to the tape data out latch 
8464 3 
8465 3; TEST STEPS: 
8466 3 
8467 3 
8468 3; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
8469 3 BEGIN : aS ree 
8470 : Write to TSSR register to soft inigial ise the controller — 
8471 F Do WRITE CHARACTERISTICS to check for Extended Features Switch 
8472 3 If Extended Features Rarneaes Switch Clear then: 
8473 3 Spovoten em Write Miscellaneous to Set Extended Features. 
8474 : Do WRITE CHARACTERISTICS to select reserved unit 7 and setup BUFFER 
8475 3 Do a Write Subs —— NPR a oes tape direction out and L 
8476 3 Do ea WRITE NPR t 1 direction 
8477 ; Do ea WRITE FORMAT iy set ReSV3=-9TuS R=il 
8478 3 Do a WRITE FIFO with byte equal to 1 and Tape direction OUT 
8479 3 Do ea WRITE FORMAT to set IRESVS==STuSTR: = 0 to load write data latch 
3 Do eae WRITE A grad se ort IRESV3==>IWSTR = 1 
6481 F Do ea WRITE NPR t soapbock end tape rote IN 
84 3 Do ea WRITE FIFO. Cith: byte coun eayel to 1 and Tape direction IN 
8483 3 to strobe loopback date tone “IFO 
3 Do ea READ FIFO with tape direction IN to read data 
8485 3 If Data read from FIFO NOT= to Data sent Then Print Error 
esas 8 END 
848 Saad e 
6488 054664 BGNSUB 3/////4////// BEGIN SUBTEST ////////// 
054664 8.3: 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
054664 104402 
8489 3 
90 054666 S$: 
054666 016034 


12$: 


002222 
104406 

061742 
032761 000200 000012 


061572 
012704 062070 


000000 
016376 
22%: 
002222 
061720 


010662 


42%: 
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TRAP 
Write to TSSR register to soft initialize the controller 


C$BSUB 


JSR PC, SOFINIT ;WRITE TO TSSR TO SOFT INITIALIZE 
BCS 103 BR wr SOFT INIT OKAY 
MOV RO,R1 }SAVE CONTENTS OF TSSR 
ERRDF ERRNO, SFIERR,SFIMSG }DEVICE FATAL DURING INIT 
TRAP CSERDF 
. WORD 8 
“WORD SFIERR 
"WORD SFIMSG 
Do wasn Penet TEREST ICS to check for Expenses Footures Switch 
CLR FLG ;CLEAR FATAL ERROR FLAG 
MOV TIOPACKET, R4 GET THE ADDRESS OF COMMAND PACKET 
JSR PC, WRTCHR }DO WRITE CHARACTERISTICS COMMAND 
FORCERROR 12$ ;@QOFORCE ERROR IF FORCER=1 
BCS 15$ BR IF CARRY SET €GO00 RETURN) 
MOV. M RO,R1 ;SAVE CONTENTS OF TSSR 
ERRNO, T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP C$ERDF 
.WORD 829 
- WORD T19SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP LOOP ON ERROR, IF FLAG SET a 


If Extended Features Hardware Switch Clear then: 
Do re Subeyeves Write Niecel levers fe. Set Extended Features. 


MOV 198FR,R1 SS. FER ADDRE 
A so" -EXTF ,XST2(R1) sEXTENDED FEATURES SWITCH SET? 
a 
JSR PC, TI9SEXT sSETUP PACKET FOR WRITE MISC INVERT 
MOV OT19PK2 ,R4 sGET a Sy 3 SUBSYSTEM coene PACKET 
MOV R4, TSDBCRS) sSET_ THE PACKET ADDRESS TO EXECUTE 
JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 
FOR = @aDFORCE ERROR IF FORCER=1 
BCS 30% sBR IF CARRY SET (GOOD RETURN) 
wT RO,R1 sSAVE CONTENTS OF TSSR 
ERROF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CS$EROF 
-WORD 830 
ai T192SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG eT. crc) 


3 WRITE ohoemerae to sotans reserved unit 7 


THE ADDRESS OF COMMAND PACKET 
:00 WRITE earrontn chon t COMMAND 


CR PC, 

FORCERROR 42$ @ADFORCE ERROR IF FORCER=1 
BCS 50¢ iBR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 SAVE CONTENTS OF TSSR 


. ERRNO 
ERRDF ERRNO,T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO. SET 


CSEROF 


SEQ 0196 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
055104 001477 -WORD 831 
055106 057633 .WORD T19SSR 
5110 012106 .WORD PKTSSR 

8530 055112 005237 002222 INC FATFLG ;SET FATAL ERROR FLAG 

8531 05511 50$: CKLOOP sLOOP ON ERROR, IF FLAG SET 

as3e 055116 104406 TRAP C$CLP1 

8533 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

8534 0551 012703 002754 MOV OTSTBLK,R3 :GET FIRST PATTERN ADDRESS 

8535 055124 012337 002314 100$: MOV CR3)- DATA iGET A TEST PATTERN 

8536 055130 042737 177400 002314 BIC $tC<377>,DATA DATA, IS BYTE 

8537 0551 010337 002320 MOV R3, TSTPTR 3; SETUP pee de POINTER 

8538 ; Do a WRI TE NPR to set loopback and TAPE bike 

8539 055142 012700 000100 MOV @NP . OUT , RO set APE DIRECTION OUT 

8540 055146 052700 BIS @NP LOOP, RO OOPBACK 

8541 0551 004737 061432 JSR 119 eT ito FOR WRITE NPR 

8542 055156 012704 062070 MOV OT19PK2 ,R4 ;GET WRITE SUBSYSTEM Corwe PACKET 

8543 055162 010465 000000 MOV R4,TSDB(RS) ;SET THE PACKET ADDRESS TO EXECUTE 

8544 055166 004737 016376 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

8545 055172 FORCERROR 102$ n. @aDFORCE ERROR IF FORCER=1 

8546 103407 BCS 105$ 3;6R IF CARRY SET (S000 RETURN) 

8547 055210 010001 MOV RO,R1 sSAVE CONTENTS OF T 

8548 055212 NEXT .ERRNO 

8549 1 102$: ERRDF ERRNO, T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055212 104455 TRAP CSEROF 
055214 001500 . WORD 32 
055216 060001 ~WORD T194SSR 

S220 012106 .WORD PKTSSR 

8550 055222 005237 002222 INC FATFLG ser FATAL ERROR FLAG 

8551 055226 105$ CKLOOP LOOP ON ERROR, IF FLAG Ser 
055226 104406 CS$CLP1 

8s52 3 Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 

8553 055230 012700 000002 MOV OWF .I3RES ,RO s IRESV3==>IWSTR=1 

85 055234 004737 061552 JSR , T19WF SETUP TOPK2 FOR WRITE FORMAT 

8555 055240 012704 062070 MOV $T19PK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 

8556 055244 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

8557 055250 004737 016376 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

8558 055254 FORC 112$ [B80F ONCE ERROR IF FORCER=1 

8559 055270 103407 BCS 120$ ;BR IF CARRY SET (GOOD RETURN) 

8 055272 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

8561 055274 NEXT . ERRNO 

8 055274 112$: ERRNO, T198SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
055274 104455 : TRAP CSERDF 
055276 001501 . WORD 33 
055300 060222 .WORD 1198SSR 
055302 012106 . WORD T 

8563 055304 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

8564 055310 120$ CKLOOP ;LOOP ON ERROR, IF FLAG 3 
055310 104406 CS$CLP1 

8565 3 Do a ve fre with byte count gust .*e to 1 and Tape TR al OUT 

8 055312 012700 000001 MOV BYTE 

8567 055316 012701 002314 MOV SaATA, R1 iF IFO WAITE DATA nponess 

8 055322 004737 061476 JSR PC, TISWFIF sSETUP T19PK2 FOR WRITE F 

8569 055326 012704 062070 MOV T19PK2 3GET ware SUBSYSTEM COMMAND P ACKET 

8570 055332 010465 000000 MOV R4,TSDBC(RS) sSET THE PACKET ADDRESS TO EXECUTE 

8571 055336 004737 016376 JSR PC,CHKTSSR sWAIT FOR SSR TO SET 

8572 055342 FORC 132$ s@@DFORCE ERROR IF FORCER=1 
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TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 


SEQ 0200 


8573 055356 103407 BCS —s-:140$ :8R IF CARRY SET (GOOD RETURN) 
8574 055360 010001 MOV —s- ROR SAVE CONTENTS OF TSSR 
8575 055 NEXT . ERRNO 
887% 088 132%: ERRDF  ERRNO,T19SSSR,PKTSSR § ;DEVICE FATAL SSR FAILED TO SET 
055362 104455 TRAP C$EROF 
055364 001502 ‘WORD 834 
055366 060044 “WORD ‘T195SSR 
055370 012106 “WORD PKTSSR 
8577 055372 005237 002222 INC __ FATFLG SET FATAL ERROR FLAG 
8578 055376 140$: | CKLOOP LOOP ON ERROR, IF FLAG SET 
055376 104406 C$CLP1 
8579 : Doe URITE FORMAT to set IRESVS==2TUSTR = 0 
8580 055400 005000 RO iSET IRESVS==>TUSTR=O 
8581 055402 004737 061552 SR OPC TLQWFMT SETUP TOPK2 FOR WRITE FORM? 
8582 055406 012704 062070 MOV OTI9PK2 RA IGET WRITE SUBSYSTEM COMMANL ACKET 
8583 055412 010465 000000 MOV _—sR4,, TSDBCRS) SET THE PACKET ADDRESS TO & <CUTE 
8584 055416 004737 016376 JSR __— PC;CHKTSSR WAIT FOR SSR TO SET 
8585 055422 FORCE 152$ [SBF ORCE ERROR IF FORCER=1 
8586 055436 103407 BCS 160$ BR IF CARRY SET (GOOD RETURN) 
8587 055440 010001 MOV —s«RO. RA SAVE CONTENTS OF T 
8588 055442 NEXT. 
gse9 055442 152s: ERRDF  ERRNO,T198SSR,PKTSSR  ;DEVICE FATAL SSR FAILED TO SET __ 
055442 104455 TRAP C$ ROF 
055444 001503 \WORD 825 
055446 060222 “WORD Ti98SSR 
055450 012106 “WORD = PKTSSR 
8590 055452 005237 002222 INC __—‘FATFLG SET FATAL ERROR FLAG 
8591 055456 160$: | CKLOOP LOOP ON ERROR, IF FLAG SET 
055456 104406 TRAP = SSCL 
8592 . Do a WRITE FORMAT to set IRESV3==>IWSTR = 1 ; 
8593 055460 012700 000002 MOV. @WF.T3RES,RO IRESV3==>IWSTR=1 
8594 05 004737 061552 JSR —s PC, T19WEMT SETUP TOPK2 FOR WRITE FORMAT 
8595 055470 012704 062070 MOV STI9PK2 RA (GET WRITE SUBSYSTEM COMMAND PACK 
8596 055474 010465 000000 MOV _—sR4, TSDBCRS) SET THE PACKET ADDRESS TO EXECUTE 
8597 055500 004737 016376 JSR __—PC/CHKTSSR WAIT FOR SSR TO SET 
8598 055504 FORC 172% ,SB0FORCE ERROR IF FORCER=1 
8599 055520 103407 BCS 180$ BR IF CARRY SET (GOOD RETURN) 
055522 010001 MOV. «ROR }SAVE CONTENTS OF TSSR 
8601 055524 NEXT . ERRNO 
3524 172$: ERRDF  ERRNO,T198SSR,PKTSSR § ;DEVICE FATAL SSR FAILED 10 SET 
5524 104455 TRAP CSERDF 
5526 001504 \WORD 836 
055530 060222 "WORD T198SSR 
055532 012106 "WORD PKTSSR 
8603 055534 005237 002222 INC FATFLG SET FATAL ERROR FLAG 
8604 055540 180$:  CKLOOP LOOP ON ERROR, IF FLAG SET 
055540 104406 TRAP —-C$CLP 
8606 : Do a WRITE NPR to set loopback givestion IN 
8607 055542 CLR RO "TgLA Ne Out SET TAPE DIRECTION IN 
8608 055544 052700 000040 BIS  @NP.LOOP,RO VSET L 
8609 055550 004737 061432 JSR —s PC, T19SNPR teETUP T19PKe FOR WRITE 
8610 055554 012704 062070 MOV —s-« @TASPK2.R4 GET WRITE. SuesYSTEN COMMAND PACKET 
8611 055560 010465 000000 MOV _—swR4 TSDBCRS) SET THE PACKET ADDRESS TO EXECUTE 
8612 055564 004737 016376 JSR _—«PCCHKTSSR WAIT FOR SSR T 
8613 055570 FORCERROR 182 ,2B0F ORCE ERROR IF FORCER®1 
8614 05 103407 BCS 1908 i8R IF CARRY SET (GOOD RETURN) 
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8615 
8616 
8617 


055606 


010001 


012703 
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+ RO,R1 sSAVE CONTENTS OF TSSR 
182$: ERRDF ERRNO, 7194SSR,PKTSSR ;DEVICE FATAL SSR a ce 
WORD 837 
.WORD 1194SSR 
.WORD PKT 
002222 INC FATFLG ;SET FATAL ERROR FLAG 
190$: CKLOOP ;LOOP ON ERROR, IF FLAG 7. eo 
3 Do ea WRITE FIFO with byte count equal to 1 and Tape dinemeian IN 
000001 MOV #1,RO sWRITE 1 BYTE 
002314 MOV #DATA,R1 sFIFO i DATA ADDRESS 
061476 JSR PC, T19WFIF sSETUP T19PK2 FOR WRITE FIFO 
062070 MOV $T19PK2 ,R4 3GET oe Res ere COMMAND PACKET 
000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
016376 JSR PC, CHKTSSR ;WAIT FOR A TO SET 
FORC 202$ jouer ORCE ERROR IF FORCER=1 
BCS 210$ ;BR IF CARRY SET (6008 RETURN) 
MOV RO, sSAVE CONTENTS OF T 
NEXT .ERRNO 
202$: ERRDF ERRNO, 7T195SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
WORD 
.WORD T195SSR 
» WORD PKTSSR 
002222 INC FATFLG sSET FATAL ERROR FLAG 
210$: CKLOOP ;LOOP ON ERROR, IF FLAG ser. comes 
F -# ea READ FIFO with tape direction IN to read data 
000001 #1,RO0 3SET READ BYTE C 
061456 SR PC, TISRFIF + SETUP T19PK2 FOR RE F 
062070 MOV @T19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
000000 MOV R4, TSDB(RS) sSET THE PACKET ADDRESS TO EXECUTE 
016376 JSR »CHIKTSSR ;WAIT FOR me re. SET 
FORC 222$ = @aDFORCE ERROR IF FORCER=1 
BCS $ ;BR IF C vue ae Fook RETURN) 
+ »R1 sSAVE CONTENTS OF T 
2223: ERRDF  ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
WORD 39 
rim T196SSR 
PKTSSR 
002222 FATFLG 3SET FATAL ERROR FLAG } 
230$: CKLOOP sLOOP ON ERROR, IF FLAG Ser conpe 
3 If Date read from FIFO NOT= to Data sent Then Print Erro 
16 JSR PC, TISSETEXP 3;SET S 0-7 EXPD=RECV (NOT TESTING) 
057472 MOV @T19EXSTA,R1 3GET EXPECTED READ STATUS 
061762 MOV 48S ee ie sGET RECV READ STAT 
002314 MOV DATA,(R1) sSET EXPD s = DATA 
000002 MOV ocRe 3° 2(R1) sSET EXPD WORD #9 = RECV (NOT TESTING) 
CLR RO sHIGH RECV ADDRESS FOR CKMSG2 
061742 MOV $T19BFR,R1 sLOW RECV ADDRESS FOR CKMSG2 
057452 MOV OT19EXP.R2 sEXPD ADDRESS 
000022 MOV #18. ,R3 sNUMBER OF BYTES TO COMPARE 


SEQ 0201 
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SEQ 0202 
TEST 8: SUBTEST 3: LOOPBACK WRITE STROBE TEST 
8657 056042 004737 011540 JSR PC, CKMSG2 sEXPD EQUAL RECV? 
8658 056046 FORCERROR 242$ ,NOTSSR 3;aaD 
8659 056056 103404 BCS 250$ ;B8R IF YES 
F660 056060 NEXT . ERRNO 
6661 056060 2423: ERRHRD ERRNO, T19WSTR,MSGSUB sREPORT ERROR 
056060 104456 TRAP CS$ERHRD 
056062 001510 -WORD 840 
056064 061133 -WORD T19WSTR 
056066 014002 -WORD MSGSUB 
8662 056070 250$: CKLOOP ; ;LOOP ON ERROR, IF FLAG SET 
056070 104406 TRAP C$CLP1 
8663 
8664 
8665 056072 FORCEXIT 255$ 39aD 
8666 056102 013703 002320 MOV TSTPTR,R3 sRESTORE CURRENT TSTBLK POINTER 
8667 056106 020327 003064 CMP R3, @TBLEND sEND OF TSTBLK? 
8668 056112 103002 BHIS 2553 ;BR IF YES 
8669 056114 000137 055124 JMP 100$ :D0 ANOTHER TSTBLK PATTERN 
oerr 056120 255$: 
8672 056120 ENDSUB 3///////4///7 END SUBTEST ////////// 
056120 L10071: 
0673 056120 104403 TRAP CsESUB 
8674 056122 005737 002222 TST FATFLG sANY FATAL ERRORS ? 
8675 056126 001402 BEQ 260$ ;BRANCH IF NOT 
8676 056130 004737 017242 JSR PC ,CKDROP sTRY TO DROP THE UNIT 
8677 056134 260%: 
ore -SBTTL TEST 8: SUBTEST 4 LOOPBACK READ STROBE TEST 
8680 pee 
8681 3; TEST 8: SUBTEST 4: 
8682 8 
8683 ; SUBTEST DESCRIPTION: 
8684 3 
8685 : This subtest verifies the Read Strobe loopback petn 
8686 3 can strobe the data from the Data lines to the FIFO. 
8687 3 The oe IRESV4 drives IRSTR (read strobe) to write 
aes 3 from t date lines to the FIFO. 
3 
8690 ; TEST STEPS: 
8691 3 
8692 3 
8693 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 
8694 3 BEGIN 
8695 3 Write to TSSR ister to soft initialize the controller 
8696 3 Do WRITE CHARACT RISTICS to check for Extended Features Switch 
8697 ; If Extended Features Hardware Switch Clear then: 
8698 3 Do Write Seeveten Write Miscellaneous to Set Extended Features. 
8699 ; Do WRITE CHARACTERISTICS to select reserved unit 7 and some BUFFER 
8700 3 Do e Write Subs one WRITE NPR to oot tape direction out and Loopback 
8701 3 Do a WRITE NPR t 1 and t direction OUT 
8702 8 Do a WRITE FORMAT a set IRESV4==>IRSTR = 1 
8703 3 Do a WRITE FIFO with byte count equal to 1 and Tape direction OUT 
8704 3 Do ea READ FIFO with t ereation ed to load tape out write latch 
8705 F Do ea WRITE NPR to set oopbock Seps direction IN 
8706 3 Do a WRITE FORMAT to set ReeVaeccIne R = 0 to write loop date to FIFO 
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016034 


002222 


061742 
000200 
061572 
062070 


000000 
016376 


002222 


000012 


12$: 


22$: 


SEQ 0203 


Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
(to strobe loopback data into FIFO.) 
Do a READ FIFO with tape direction IN to read data 
If Date read from FIFO NOT= to Data sent Then Print Error 


BGNSUB AAA LLL am achat SAA4SSSSSS 


TRAP C$BSUB 
Write to TSSR register to soft initialize the controller 


JSR PC, SOFINIT s;WRITE TO TSSR Ry INITIALIZE 


BCS 10$ ;6R IF SOFT INIT 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

ERRDOF ERRNO, SFIERR , SFIMSG DEVICE FATAL DURING INIT 
TRAP CSERDF 
-WORD 840 
-WORD SFIERR 
-WORD SFIMSG 

Do WRITE tients to check for Extended Features Switch 

CLR FATFLG ;CLEAR FATAL ERROR FLAG 

MOV @TISPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 

JSR PC,WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

FORCERROR 12$ i2 @aDFORCE ERROR IF FORCER=1 

BCS 15$ ;BR IF CARRY SET ($008 RETURN) 

MOV RO,R1 sSAVE CONTENTS OF TSSR 

NEXT .ERRNO 

ERRDF ERRNO, T19SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CSERDF 
-WORD 841 
-WORD 119SSR 
-WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP sLOOP ON ERROR, IF FLAG ser 


CS$CLPl 
If Extended Features Hardware Switch Clear then: 
me ois subevates Write Miscellaneous to Set Extended Features. 


Vv 198FR sMESSAGE BUFFER ss 
BIT @X2. exie. XST2(R1) ;EXTENDED FEATURES SWITCH SET? 
BNE 30$ s8R IF YES 
JSR PC, T19SEXT sSETUP PACKET FOR WRITE MISC pest 
MOV OT19IPK2 ,R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) sSET_THE PACKET ADDRESS TO EXECUTE 
JSR PC, CHKTSSR ;WAIT FOR A. Be. se SET 
FORCERROR 224 Mog CE ERROR IF FORCER=1 
BCS 30$ sBR IF CARRY Set (GOOD RETURN) 
MOV RO,R1 sSAVE CONTENTS OF TSSR 
NEXT .ERRNO 
ERRDF ERRNO,T192SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP senor 
or T192SSR 
PKTSSR 
INC FATFLG sSET FATAL ERROR FLAG 
CKLOOP sLOOP ON ERROR, IF FLAG sy. eon 


Do WRITE CHARACTERISTICS to select reserved unit 7 


J16 
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SEQ 0204 


8748 056322 012704 061720 MOV OTIOPACKET ,R4 ;GET THE ADDRESS OF COMMAND PACKET 

8749 056326 004737 010662 JSR PC, WRTCHR 300 WRITE CHARACTERISTICS COMMAND 

8750 056332 FORCERROR 42 ;@@O0FORCE ERROR IF FORCER=1 

8751 056346 103407 BCS 50$ :BR IF CARRY SET ¢G000 RETURN) 
056350 010001 MOV RO,R1 sSAVE CONTENTS OF T 

8753 056352 NEXT. 

8754 056352 42$: ERRDF ERRNO,T19SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
056352 TRAP CSERDF 
056354 .WORD 843 
056356 057633 - WORD T19SSR 
056360 012106 PKTSSR 

8755 056362 002222 INC FATFLG ;SET FATAL ERROR FLAG 

8756 056366 50$ CKLOOP ;LOOP ON ERROR, IF FLAG SET 

on 056 104406 CSCLP1 

8758 ; REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

8759 056370 012703 002754 MOV STSTBLK,R3 :GET FIRST PATTERN ADDRESS 

8760 056374 012337 002314 100$: MOV (R3)+, DATA }GET A TEST PATTERN 

8761 056400 042737 177400 002314 BIC #1C<377> ,DATA ;O0ATA IS BYTE 

8762 056406 010337 002320 MOV R3, TSTPTR ;SETUP CURRENT TSTBLK POINTER 

8763 : Do a WRITE NPR to set loopback and t direction 

8764 056412 012700 000100 .OUT,RO ;SET TAPE DIRECTION OUT 

8765 056416 052700 000040 BIS @NP - LOOP , RO ;SET LOOPBACK 

8766 056422 004737 061432 JSR PC, TISSNPR ;SETUP T19PK2 FOR WRITE NPR 

8767 056426 012704 062070 MOV OTi9PK2,R4 ;GET WRITE SUBSYST COMMAND PACKET 

8768 056432 010465 000000 MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 

8769 056436 004737 016376 JSR PC. CHKTSSR }WAIT FOR SSR TO SET 

8770 056442 FORCERROR 102$ 2 ORCE ERROR IF FORCER=1 

8771 056456 103407 BCS 105$ :BR IF CARRY SET (GOOD RETURN) 

8772 056460 010001 Vv WR ;SAVE CONTENTS OF TSSR 

8773 056462 NE 

8774 056462 102$: ERRNO, T194SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
056462 104455 TRAP CSERDF 
056464 001514 ‘ 844 
056466 - WORD T194SSR 
056470 012106 PKTSSR 

8775 056472 002222 INC FATFLG ;SET FATAL ERROR FLAG 

8776 056476 105$: CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056476 104406 CSCLP1 

8777 : Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 

8778 056500 012700 000001 MOV OF .T4RES,RO ; IRESV4==>IRSTR=1 

8779 056504 004737 061552 JSR PC, T19WFMT ;SETUP ITE FORMAT 

8780 056510 012704 062070 MOV OT19PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

8781 056514 010465 000000 MOV R4, TSDBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 

8782 056520 004737 016376 JSR PC,CHKTSSR ;WAIT FOR SSR TO SET 

8783 056524 FORCERROR 112$ 33 @aDFORCE ERROR IF FORCER=1 

8784 056540 103407 BCS ;BR IF CARRY SET ¢GO00 RETURN) 

8785 056542 010001 MOV RO,R1 ;SAVE CONTENTS OF TSSR 

8786 056544 NEXT. 

8787 056544 112$: ERRDF ERRNO,T198SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
056544 104455 TRAP CSEROF 
056546 001515 .WORD 845 
056550 - WORD T198SSR 
056552 012106 PKTSSR 

8788 056554 002222 INC FATFLG ;SET FATAL ERROR FLAG 

8789 056560 120$:  CKLOOP ;LOOP ON ERROR, IF FLAG SET 
056560 104406 C$CLP1 


K16 
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8790 ; 
000001 
002314 
061476 
062070 


000000 
016376 


002222 


000001 
061456 
062070 
000000 
016376 


002222 


000040 
061432 
062070 
000000 
016376 


162%: 


002222 


132$: 


152$: 
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he way 2 with byte count ogist “2 to Pm and Tape direction OUT 

MOV SOATA R1 iFIFO ArT DATA Ss 

JSR PC, T1SWFIF ;SETUP T19PK2 FOR WRITE FIFO 

MOV $Ti9PK2 Ra :GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4,TSDBCRS) sSET THE PACKET ADORESS TO EXECUTE 

JSR C.CHKTSSR ;WAIT FOR SSR TO SET 

F 132$ ;@QDFORCE ERROR IF FORCER=1 

BCS 140$ OR IF CARRY SET ¢G000 RETURN) 

MOV RO,R1 ;SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRNO, T19S5SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 

TRAP CSEROF 
.WORD 846 
[WORD  T195SSR 
[WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET sae 

Do a READ FIFO with tape direction OUT to load t out by latch 

MOV #1,R0 3SET READ BYTE C 

JSR PC, TISRFIF ;SETUP T1 FOR RE 

MOV OT19PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4, TSDBCRS) sSET T T ADDRESS TO EXECUTE 

JSR PC. CHKTSSR WAIT FOR SSR TO SET 

FORCERROR 152$ 33 @aDFORCE ERROR IF FORCER=1 

BCS 160$ :BR IF CARRY SET ¢G000 RETURN) 

MOV RO,R ;SAVE CONTENTS OF T 

ERRNO, T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

TRAP CSEROF 
.WORD 647 
"WORD T196SSR 
‘WORD PKTSSR 

INC FATFLG ;SET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET ae 


Do a WRITE NPR to set loopback _ o ies div direction IN 
CLR RO OUT TO SET TAPE DIRECTION IN 


BIS @NP .LOOP ,RO SET LOOPBACK 

JSR PC, TI9SNPR sSETUP T19PK2 FOR WRITE NPR 

MOV OTI9PK2 ,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 

MOV R4,TSDBCRS) SET THE PACKET ADDRESS TO EXECUTE 

JSR PC. CHKTSSR sWAIT FOR SSR TO SET 

FORCERROR @aDFORCE ERROR IF FORCER=1 

BCS 190% BR IF CARRY SET (GOOD RETURN) 

MOV RO,R1 :SAVE CONTENTS OF TSSR 

NEXT . ERRNO 

ERRDF ERRNO,T194SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP —- CSEROF 
. WORD 8 
[WORD 1194SSR 
‘WORD PKTSSR 

INC FATFLG sSET FATAL ERROR FLAG 

CKLOOP ;LOOP ON ERROR, IF FLAG SET aie 


Do ea WRITE FORMAT to set IRESV4==>IRSTR = 0 


SEQ 0205 


Lié€ 
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8832 057016 
061552 
062070 


000000 
016376 

202%: 
002222 


000001 
061552 
012704 062070 
000000 
016376 


2228: 
002222 


000001 
061456 
062070 
000000 
016376 


282$: 


002222 


004737 061630 
057472 
061762 


8873 057252 
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CLR :SET IRESV4==>IRSTR=0 
JSR Ti ;SETUP TOPK2 FOR WRITE FORMAT 
MOV OTI9PK2,R4 ;GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) ;SET THE PACKET ADDRESS TO EXECUTE 
JSR PC; CHKTSSR ;WAIT FOR SSR TO SET 
FOR 202$ p33 ORCE ERROR IF FORCER=1 
BCS 210$ :BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
NEXT . ERRNO 
ERRDF ERRNO,T198SSR,PKTSSR ;DEVICE FATAL SSR FAILED TO SET 
TRAP C#ERDF 
- WORD T198SSR 
TSSR 
INC FATFLG ;SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET aad 
Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 
MOV OF .T4RES,RO ;IRESV4==>IRSTR=1 
JSR PC, T19WFMT SETUP TOPK2 FOR WRITE FORMAT 
MOV OTi9PK2,R4 :GET WRITE SUBSYSTEM COMMAND PACKET 
MOV R4, TSDBCRS) SET THE PACKET ADDRESS TO EXECUTE 
JSR PC: CHKTSSR ;WAIT FOR SSR TO SET 
FOR [RQ0FORCE ERROR IF FORCER=1 
BCS 230$ :BR IF CARRY SET (GOOD RETURN) 
MOV RO,R1 ;SAVE CONTENTS OF TSSR 
ERRDF ERRNO,T198SSR,PKTSSR :DEVICE FATAL SSR FAILED TO SET 
TRAP C$EROF 
.WORD 850 
"WORD T198SSR 
"WORD PKTSSR 
INC FATFLG :SET FATAL ERROR FLAG 
CKLOOP ;LOOP ON ERROR, IF FLAG SET 
TRAP  C$CLP1 


Do a oe Hy with tape Sree to read data 


MOV 2RO sSET READ "ByT 

JSR PC, TLISRFIF sSETUP T19PK2 FOR READ FIFO 

MOV $T19PK2 ,R4 ;GET WRITE SUBSYSTEM COPGIAND PACKET 

MOV R4,TSDBC(RS) sSET THE PACKET ADDRESS TO EXECUTE 

JSR »CHKTS sWAIT FOR SSR TO SET 

FORC! j20 @aDFORCE ERROR IF FORCER=1 

BCS 290% 3B8R IF CARRY SET ($009 RETURN) 

+ RO,R1 i SAVE CONTENTS OF T 

ERRDF ERRNO,T196SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
TRAP CS$ERDOF 
-WORD 851 
.WORD 1196SSR 
-WORD PKTSSR 

INC FATFLG He 3 FATAL ERROR FLAG 

CKLOOP LOOP ON ERROR, IF FLAG ie os 

7 Data peed from FIFO NOT= to Date sent Then Print E 

PC, TISSETEXP sSET WORDS 0-7 EXPD-RECY (NOT TESTING) 
Hov #T19EXSTA,R1 iGET EXPECTED READ STA 
MOV OT19BFSTA.R2 3GET RECV READ STATUS 


SEQ 0206 


M16 
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8874 057256 
8875 


057404 


7 
6918 057406 


8 057406 
6920 057410 
6921 057412 


013711 
016261 


005000 
012701 

012702 
012703 
004737 
103404 


000001 
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002314 
000002 


002320 
003064 


056374 


002222 
017242 


MOV DATA, (R1) 
MOV 2(R2),2¢R1) 
CLR RO 
MOV OT19BFR,R1 
MOV OT19EXP.R2 
MOV 018. .R3 
JSR , 
FOR 302¢ ,NOTSSR 
BCS 310% 
NEXT. 
302%: ERRHRD ERRNO, TISRSTR,MSGSUB 
310%:  CKLOOP 
FORCEXIT 355¢ 
MOV TSTPTR,R3 
CMP R3, @TBLEND 
BHIS 355% 
UMP 100% 
355$: 
ENDSUB 
TST FATFLG 
BEQ 360$ 
JSR PC, CKDROP 
360$: 
EXIT TST 


LOCAL STORAGE FOR THIS TEST 
3° 


sSET E WORD s = DATA 
sSET EXPD WORD #9 = RECV (NOT TESTING) 
sHIGH RECV ADDRESS CKMSG2 


FOR 
sLOW RECV ADDRESS FOR CKMSG2 
sEXPD ADDRESS 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


;3a0 

;BR IF YES 

sREPORT ERROR 
TRAP CSERHRD 
«WORD 852 
«WORD T19RSTR 
.WORD MSGSUB 

sLOOP ON ERROR, IF FLAG SET 
TRAP CSCLP1 


;@aD 
:RESTORE | po TSTBLK POINTER 
sEND OF TSTBLK? 

BR IF YES 

:00 ANOTHER TSTBLK PATTERN 


s4///////1//// END SUBTEST ////////// 
L10072: 


TRAP CSESUB 
sANY FATAL ERRORS ? 
;BRANCH IF NOT 
sTRY TO DROP THE UNIT 
s4///4/4/// EXIT TEST SASS//A/47 
TRAP CSEXIT 
L10066 


T1I9PREV: -WORD O sDRIVE SIGNAL 1-0 TRANSITION FLAG 
: LOOPBACK DRIVE SIGNAL TABLE 
3 THIS TABLE IS USED BY TI9SCNVT TO SETUP 
s A DRIVE PATTERN FROM THE TEST DATA INPUT PATTERN. 
: WRITE CONTROL SIGNALS ARE OF FORM WC.XXX 
3 WRITE FORMAT SIGNALS ARE OF FORM WF .XXXX 
4i98FCTL: sWRITE CONTROL DRIVE SIGNALS 
WC .IGO 31GO==>IFPT DATA<0O> 
WC .IFEN 3: IFEN==>IFBY DATA<1> 
WC. IRWU 3s IRWU==>IRWD DATA<2> 


SEQ 0207 


Bi 


TSVS - 


8922 057414 


057416 
420 
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000010 


000100 
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162 
122 
122 


122 


2 ho bed bo bad pe po fen en er 
JUSURE SR AERUND 
nnwwu Rue Ue 


T19MSK: 
-BYTE 
-BYTE 
-BYTE 
TI9SEXP: 
.WORD 
.- WORD 
- WORD 
WORD 
WORD 
. WORD 
WORD 
WORD 


TLSEXSTA: -BLKB 64. 
TISEXEND 


SEQ 0208 


WC. IREW sIREW==>IDBY DATA<3> 
WF. IERASE*#256. 3 IFAD==>ILOP TA<4> 
ie tA s1T =s>IONL DATA<5> 

.-10T si? =2>IRDY DATA<6> 
WC. IFAD sIERASE==>ISPEED DATA<7> 
WF. i Ae Fal sIEDIT==>IHER DATA<6> 
WF IWF Me. s IWF M==>IFMK DATA<9> 
WF. Se Def s IREV==>ICER TA<10> 
WF. IWRTs s IWRT==>T IDENT TA<11> 
WF. IHISP*256 sIHISP=s= rAMED DATA< 1¢> 
-WORD O tIRESV2 pt > 
-WORD O ARENA TA<14> 
-WORD O UNTEST DATA<15> 

+ Et UNTESTED BIT ” READ STATUS BYTES 
sUNTES ED BITS ARE TO 1 

t€<000> sBYTE O MASK 
He my BYTE 1 MASK Sew IRESV2, IRESV1) 

<017> sBYTE ¢ CTIMER A TIMER 6 » UNDEF INED<1:0>) 
0 sMAKE IT EVEN 
o seer ae DATA BUFFER 
4 rDATA FIELD LENGTH 
0 ixSTO 
0 3sXST1 
° ers 
0 ixS14 ecteb nck PRESENT FOR WRITE SUB.) 

ED READ STATUS AND WRITE FIFO DATA 
sEND BUFFER 


EXPECTED DATA 


;LOCAL TEXT MESSAGES FOR TEST 


a - 
TST19ID: 


« 
~ 
*] 
g 

HHA HHH 


T199CMP : -ASEES 
TIOWSTR: .ASCI 
TIORSTR: .ASCIZ 


-EVEN 


eerteers Bus Interface Loopbeck’ 
QHARcT wits? Failed’ 


efter Initielize’ 
to Write FIFO , Dete is in WORD 6’ 
neorrect efter RESET TAPE’ 


‘Loopbeck 
‘Loopbeck Dete Error when strobed by Read Strobe 
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} CLEAR MESSAGE BUFFER 
+i9cLRBUF : 
01270 Sov” OTISBFR.R 
012702 000 MOV STISBEND. T19BFR,R2 
105021 10$: CLRB  (Ri)- 
Go5302 C R2 
003375 BGT 198 
060207 RTS 
} SETUP T19PK2 PACKET FOR READ STATUS 
T19SR0: 
PC, T19CLRBUF EAR MESSAGE BUFFER 
9072, RO }WRITE SUBSYSTEM DATA BUFFER 
OP RDSTATUS CRO)» STORE READ STATUS COMMAND IN BSELO 
RTS) PC i RETURN 
} SETUP TI9PK2 PACKET FOR WRITE MISC Reset Tape Stetus F-FLOPS 
TiORSFIF : 
JSR :CLEAR MESSAGE BUFFER 
tURITE SUBSYSTEM DATA BUFFER 
; Me Rstap.cro> STORE BeeLa CLEAR IRD topes to 
RIS. : : + RETURN 


} SETUP T19PK2 PACKET FOR WRITE NPR 


INPUT: 
RO CONTAINS BSEL1 NPR DATA 


SETS NP.WRP SINCE IF 0 IT WRITES WRONG PARITY. 


PC, TISCLRBUF sCLEAR MESSAGE BUFFER 
T190T2 Ri 

OP. WNPR, (R1)- 

ONP -WRP RO 

RO,CR1) 

PC 


| SETUP T19PK2 PACKET FOR READ FIFO 
} INPUT: 
; RO CONTAINS SEL2 BYTE COUNT 


90 o 
9034 061456 tioRF IF; 
9035 061456 JSR _—s- PC, TI 9CLRBUF ;CLEAR MESSAGE BUFFER 
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012701 00 MOV oT1 Ri YSTEM ere —o 
lie7el 3 MOVB RO. eeu. nr FO 0,CR1)- Ff Read FIFO. s 


nae T19PK2 PACKET FOR WRITE FIFO 
‘ 


s INPUT: 
; Ri CONTAINS BATA BRTTERN BLOCK ADDRESS 


TiowrIF: 
SA SAVE AIRS UNTIL NEXT RETURN 

bc, TOCLRBUF CLEAR 

#Ti90T2,R2 

OPW. WFIFO,(R2)- 

RO, CR2 


(R3)- 
R1)-,(R2)- 
BcT 108 


} SETUP T19PK2 FOR WRITE CONTROL 

; INPUT: 

: RO CONTAINS DRIVING DATA PATTERN 
Ti9WCcTL: 


efisbte my Rite SUBSYSTEM D DATA A BUFFER 
IN BSELO 


R 
tte 3 STORE WRITE C 
RO, RO. CRI Ds sSTORE DATA WORD. ve BSEL1 
PC sRETURN 


Move 
RTS 
* setup T19PK2 FOR wae FORMAT TRANSPORT REGISTER 


INPUT: 
RO CONTAINS DRIVING DATA PATTERN 


a 
JSR TI9CLRBUF 
eTis0Te. | i WATTE epee as BLEFER 
‘RETURN 


MOVE 
MOVB RO, (R1)- 
RTS PC 


} SETUP TI9PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
$T190T2,RO YSTEM DATA BUFFER 
$Pu Lettsc (RO)- 1 TORE tRiTE MESCELLANGDUS IN IN BSELO 
Ors EXT (RO) iSTORE INVERT EXTENDED FEATURES IN BSEL1 


+ CLEAR EXPECTED DATA MESSAGE BUFFER 
t- 
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9093 061610 TISCLEXP: 
061610 012701 057452 OT19EXP R21 
012700 000120 ror, vy «SR 9EXENO-T29ExP Ro 
005300 ; aoe 


003375 O$ 
000207 s Pe 


ea 
333 


hy 
& 


- c Ge Ge Ge Ge 
as 
+ 

~ 


;Set WORDS 0-7 of expd message BUFF 
tiosetexp: 


g 
é 


v since not testing 
eT19EXP Re 
OT196FR.R 
#8. ,RO 
S$: (R35-,(R2)- 
RO 
S$ 
PC 


B33 


ATUS RECV BUFFER 


skint 


} CONVERT A TEST PATTERN DATA WORD TO LOOPBACK DRIVE SIGNALS 


RO TEST PATTERN 
IMPLICIT INPUTS: 
TISBFCTL - CONTAINS WRITE CONTROL / WRITE FORMAT CONVERSION BITS 


i 


- LOW BYTE CONTAINS WRITE CONTROL DATA 
- HIGH BYTE CONTAINS WRITE FORMAT DATA 


sSAVE _R1-RS UNTIL NEXT RETURN 
sCONVERSION TABLE ADORESS 
sINIT RESULT OF CONVERSION 


3 COUNT 

31S THIS BIT EQUAL TO 1? 
20% 3 NO 
(R1),R2 sSET CONVERTED BIT 

gid POINT TO NEXT BIT IN CONVERSION TABLE 
10% 


@TISBFCTL RI 
#16. ,R3 
RO 


-*¢,°10>€177770 
9149 }WRITE CHARACTERISTICS COMMAND PACKET 
9151 061720 41 9PACKET: ;COMMAND PACKET FOR TEST 





Fi 
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9152 061720 100004 100004 ;WRITE CHARACTERISTICS COMMAND 
061730 : sADDRESS OF CHARACTERISTICS Block 


sMINIMUM MESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF OF sRESSAGE BUFFER 
TESTENDED FE EATURES UNIT NO. 


TH ACK 


FOR ALL TEST 8 COMMANDS 

sBEGIN ge BUFFER 
sMESSAGE T 

;DATA FIELD LENGTH 


oecoooocoo 


: XxSTS 
WORD iXST4 CALWAYS PRESENT FOR WRITE SUBSYSTEM 

TISBFSTA: .BLKB 64. READ STATUS AND WRITE FIFO BUFFER 

T19BEND; }END OF MESSAGE BUFFER 

}WRITE SUBSYSTEM READ STATUS COMMAND PACKET 

. .#<,°10>€177770 


T19PK2 
: P.WRTSUB!P ACK }WRITE SUBSYSTEM WITH ACK 
isot2 LOW ADDRESS OF 


T190T2: 


sSEL2 
sWRITE FIFO DATA OUTPUT BUFFER 


ENDTST 
L10066: 
TRAP CsETST 
-SBTTL TEST 9: READ/WRITE DATA PARITY TEST 


“TEST DESCRIPTION: 


This test verifies thet the Write Dete Perity generator 
ed the Read Dete eer ity checker operate on rly. The 
r t Bus signal oopback mode and G 
Set is executed. Then 

Write ti 

write dete to and from the FIFO in 1 a 

The progrem then checks to insure e Read ®@ perity 
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9251 


fe 


012700 064572 
004737 016550 


BEREE SOSHUUR 


062212 
062216 012737 000012 002216 
062224 
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SEQ 02135 


i’ Res Reset FYFO's is done and the Read Date per ity 

error bit is again tested to insure it cleared. 
Finally e Clear ane oarty function is done 

end it is verified date word cen pass in loopback 
mode without setting Read Date parity error. 


TEST STEPS: 
my 2 FOR LOOPCNT 
Write to TSSR register .£° to soft initialize the controller 
Do WRITE CRARACT ISTICS to check for Extended Features Switch 


at 
Seoreten i i Feat 
Do WRITE CHARACTERISTICS to select reserved unit 7 and setup o BUFFER 
wy Ee ALL TEST PATTERNS IN TSTBLK TABLE 


(* wore see “yn pe 8. Par it pene | Perity Error #*) 
gt LF s lecsbacs ud tape divestion OuT 
Wri 


Do @ WRITE FORMAT’ te _lirong: Ber ity ierg © 3 (ests reed strobe high) 
ITE FIFO with byte count equal to 1 and Tape direction OUT 

_ FIFO with ae Girestign ~y to load tape out write latch 

s when wrong par ‘oS IW) is set) 

RITE FORMAT to set I sri teats = 0 (sets read strobe low) 


pee ogee 
‘ap 


(Read Strobe sets PAR IN H [Parity Error 
TE FORMAT to set te aa RSTR = 1 (sets read strobe high) 
ite Subsystem READ STATUS 

Deta parity error NOT=1 Then Print Error 

ite Misc to RESET FIFO 

ite Subsystem READ STATUS 

Dete per ity error NOT=0 Then Print Error 


Date can be transferred without eae Parity Error +) 

Te FORMAT to set TRESV4==>IRSTR B * "Tooth read strobe high) 
E NPR to set 1 gre pene eeaensen SH 

eri 


z Fee 
2 RSSRSE Be 


$5 585 55: 
sa.H8 

m 

a 

o 

3 

3 

fad 

3 

S 


t should NOT set 
E FORMAT to set preyvercsmnere =1 
ite Subsystem READ STATUS 

Date perity error NOT=0 Then Print Error 


388 SSS SSS WESWSS F FF 


2eeo 8808 se< 


8 


T9:: 
sASCII MESSAGE TO IDENTIFY TEST 
100 INITIAL TEST SETUP 
sPERFORM 10 ITERATIONS 


@TST20ID,RO 
PC, TSTSETUP 
#10. ,LOOPCNT 


Hi 
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SEQ 0214 
TEST 9: READ/WRITE DATA PARITY TEST 
9269 oassne BGNSUB LALLA BEGIN SUBTEST ///// 4/447 
«4 
062224 104402 TRAP Cs6SUB 
3370 062226 , Write to TSSR register to soft initialize the controller 
9272 062226 004737 016034 JSR PC ,SOFINIT bs | TO TSSR TO sort INITIALIZE 
9273 062232 103405 BCS 103 19R IF SOFT INIT OKAY 
9274 062234 010001 MOV RO,R1 SAVE CONTENT TSSR 
062236 ERRNO, SFIERR , SFIMSG }DEVICE FATAL SDORING INIT 
062236 104455 TRAP CsERDF 
062240 001604 -WORD 900 
062242 003654 -WORD SFIERR 
062244 012074 . WORD SF IMSG 
9276 Do mises” sy thane to check for Extended Foatures Switch 
9277 062246 005037 002222 jos: CLR TFLG Oo FATAL ERROR FLAG 
9278 062252 012704 065770 MOV PTSOPACKET ,R4 sGET THE ADDRESS OF COMMAND PACKET 
9279 062256 004737 010662 JSR PC ,.WRTCHR 3D0 WRITE CHARACTERISTICS COMMAND 
9280 062262 F 12$ @a0FORCE ERROR IF FORCER=1 
9281 062276 103407 BCS 15% 3;6R IF CARRY pe ($008 RETURN) 
062300 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9283 062302 NEXT . ERRNO 
062302 12%: ERRDF ERRNO, T20SSR ,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062302 104455 TRAP CSEROF 
062304 001605 -WORD 901 
306 064621 .- WORD T20SSR 
062310 012106 .WORD PKTSSR 
9285 062312 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
9286 062316 15$: CKLOOP sLOOP ON ERROR, IF FLAG se 
062316 104406 CSCLPi 
3 If Exhentad Features Hardware Switch Cleer then: 
9288 3 Do Write Seeveres Write iacel tveesun to Set Extended Features. 
9289 062320 012701 066012 MOV STOOBFR,R1 sMESSAGE BUFFER 
9290 062324 032761 000200 000012 BIT oX2. EXTF, xXST2CR1) i EXTENDED FEATURES SWITCH SET? 
9291 062332 001026 BNE = 3a 3;BR IF YES 
9292 0623 004737 065706 JSR sSETUP PACKET FOR WRITE MISC INVERT 
9293 062340 012704 066140 MOV OTSORRO Ra R4 sGET WRITE SUBSYSTEM COMMAND PACKET 
9294 062344 010465 000000 MOV R4, TSDBC(RS) sSET THE PACKET ADDRESS TO EXECUTE 
9295 062350 004737 016376 JSR PC. CHKTSSR iWAIT FOR SSR TO SET 
9296 062354 FORCERROR 22¢ @aDFORCE ERROR IF FORCER=1 
9297 062370 103407 BCS 30% 3;6R IF CARRY SET (GOOD RETURN) 
9298 062372 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9299 062374 NEXT . ERRNO 
9300 062374 22%: ERRDF ERRNO, T202SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062374 104455 TRAP CSEROF 
062376 001606 -WORD 902 
062400 064656 -WORD T202SSR 
062402 012106 .WORD PKTSSR 
9301 062404 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
9302 062410 30%: CKLOOP sLOOP ON ERROR, IF FLAG oer 
062410 104406 CsCLPi 
9303 3 9 WRITE oP AARACTERTSTICS to select reserved unit L 
9304 062412 012704 065770 @T2OPACKET ,R4 sGET bi ADDRESS OF COMMAND PACKET 
9305 062416 004737 010662 eR PC,WRTCHR 100 WRITE ACTERISTICS COMMAND 
9306 062422 FORCERROR 42% i323 sear cays ERROR IF FORCER=1 
9307 062436 103407 BCS 50% 3BR IF CARRY (S000 RETURN) 
062440 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 
9309 062442 NEXT . ERRNO 
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SE@ 0215 
TEST 9: READ/WRITE DATA PARITY TEST 

9310 062442 42%: ERRDF ERRNO, T20SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062442 104455 TRAP CSERDF 
062444 001607 -WORD 903 
062446 064621 .WORD T20SSR 
062450 012106 .WORD PKTSSR 

9311 062452 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

9312 062456 50%: CKLOOP sLOOP ON ERROR, IF FLAG +e . 

9313 062456 104406 CSCLPi 

9314 

9315 : REPEAT FOR ALL TEST PATTERNS IN TSTBLK TABLE 

9316 062460 012703 002754 @TSTBLK ,R3 3sGET ae Patton ADDRESS 

9317 062464 012337 002314 100$: MOV CR3)-< DATA iGET A TEST TTERN 

9318 062470 042737 177400 002314 BIC @1C<377>,DATA iDATA Is Svte. 

9319 062476 010337 002320 MOV R3,7TSTP PTR sSETUP CURRENT TSTBLK — 

9320 : Do @ WRITE NPR to set loopback end tape direction OUT and 

9321 ’ and SET Write Wrong mars 

9322 062502 012700 000100 MOV @NP .OUT ,RO TAPE DIRECTION OUT 

9323 062506 052700 000040 BIS ONP -LOOP , RO sSET LOOPBACK 

9324 062512 042700 000020 BIC ONP _URP ,RO iSET WRITE WRONG PARITY (INVERTED) 

9325 062516 004737 065556 JSR PC, TZOWNPR sSETUP T20PK2 FOR WRITE NPR 

9326 062522 012704 066140 MOV OT20PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 

9327 062526 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 

9328 062532 004737 016376 JSR PC ,CHKTSSR sWAIT FOR SSR TO SET 

9329 062536 FORCERROR 102$¢ iT .. @aDFORCE ERROR IF FORCER=1 

9330 062552 103407 BCS 105% 36R IF CARRY SET ($008 RETURN) 

9331 062554 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9332 062556 NEXT . ERRNO 

9333 062556 102: ERRDF ERRNO, T204SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062556 104455 TRAP CSERDF 
062560 001610 -WORD 904 
062562 064767 .-WORD T204SSR 
062564 012106 -WORD PKTSSR 

9334 062566 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

9335 062572 105%: CKLOOP sLOOP ON ERROR, IF FLAG ser 
062572 104406 C$CLP1 

9336 F Do a WRITE FORMAT to set IRESV4==>IRSTR = 1 facto, read amt high) 

9337 062574 012700 000001 MOV OWF .I4RES ,RO sIRESV4==>IRSTR = 

9338 062600 004737 065652 JSR PC, T20WFMT sSETUP T20PK2 FOR WRITE FORMAT 

9339 062604 012704 066140 MOV OT20PK2 ,R4 iGET WRITE SUBSYSTEM COMMAND PACKET 

9340 062610 010465 000000 MOV Ba. Tso. es> 3SET THE Peel ADDRESS TO EXECUTE 

9341 062614 004737 016376 JSR PC ,CHK sWAIT FOR SSR TO SET 

| 062620 FORCERROR 112% ;22 @aOFORCE ERROR IF FORCER=1 

9343 062634 103407 Bcs 120% sBR IF CARRY SET (GOOD RETURN) 

9344 062636 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9345 062640 NEXT . ERRNO 
062640 112%: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
062640 1 TRAP CSERDF 
062642 001611 -WORD 905 
062644 065141 . WORD T208SSR 
062646 012106 .WORD PKTSSR 

9347 062650 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 

9348 062654 120%: CKLOOP sLOOP ON ERROR, IF FLAG 7. 
062654 104406 CsCLP1 

9349 3 Do e “ fe with byte count oquet te mw Tape Wineenian OuT 

9350 062656 012700 000001 MOV wud 

9351 062662 012701 002314 MOV SOATA, R1 iF IFO ITE BATA ADDRESS 


Ji 
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SEQ 0216 
TEST 9: READ/WRITE DATA PARITY TEST 

9352 062666 004737 065616 JSR PC, TOOWF IF sSETUP T20PK2 FOR WRITE FIFO 
9353 062672 012704 066140 MOV OT20PK2 ,R4 3;GET WRITE SUBSYSTEM COMMAND P 
9354 062676 010465 000000 MOV R4, TSDBCRS) sSET THE PACKET ADDRESS TO EXECUTE 
9355 062702 004737 016376 JSR PC ,.CHKTSSR }WAIT FOR SSR TO SET 

9356 062706 FORCERROR 152¢ 422 @aOFORCE ERROR I F poncer=t 
9357 062722 103407 BCS 160% ;BR IF CARRY SET (2000 RETURN 

9358 062724 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9359 062726 NEXT . ERRNO 

360 062726 152$: ERROF ERRNO, T205SSR ,,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

062726 104455 TRAP CSEROF 

062730 001612 .WORD 906 

062732 065032 -WORD T20S5SSR 

062734 012106 -WORD PKTSSR 
9361 062736 005237 002222 INC FATFLG sSET FATAL ERROR FLAG 
9362 062742 160$: CKLOOP sLOOP ON ERROR, IF FLAG <r. 

062742 104406 CSCLPi 
9363 : Do @ READ FIFO with tape direction OUT to load tape out ee latch 
9364 3 (this is when wrong perity (IW) is set) 

9365 062744 012700 000001 MOV #1,R0 sSET READ BYTE COUNT 

9366 750 004737 065576 JSR PC, T2ZORFIF sSETUP T20PK2 FOR READ FIFO 

9367 062754 012704 066140 MOV oT R4 3GET WRITE SUBSYSTEM COMMAND P. 

9368 062760 010465 000000 MOV R4, TSDOBCRS) 3SET THE PACKET ADDRESS TO EXECUTE 

9369 062764 004737 016376 JSR PC, CHKTSSR sWAIT FOR SSR TO SET 

9370 062770 FORCERROR 172% [SSOF ORCE ERROR IF FORCER=1 

9371 063004 103407 BCS 180% 3BR IF CARRY SET (GOOD RETURN) ¥ 
9372 063006 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9373 063010 NEXT . ERRNO 

9374 063010 172%: ERRDF ERRNO, T206SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET / 

063010 1044 TRAP CSEROF 

063012 001613 -WORD 907 

063014 065076 - WORD T206SSR 

063016 012106 -WORD PKTSSR 
9375 063020 005237 002222 INC FATFLG 3SET FATAL ERROR FLAG 
9376 063024 160%: CKLOOP ;LOOP ON ERROR, IF FLAG oer 

063024 104406 CSCLP1 
9377 3 Do e WRITE FORMAT to set IRESV4==>IRSTR = O (sets read +l low) 
9378 3 (Read Strobe sets PAR IN weer ley er ror]) 

9379 063026 005000 CLR RO- SV4==>IRSTR = O 

9380 063030 004737 065652 JSR PC, T2OWFMT iSETUP T20PK2 FOR WRITE FORMAT 

9381 063034 012704 066140 MOV OT20PK2 ,.R4 3GET WRITE SUBSYSTEM COMMAND P 
9382 063040 010465 000000 MOV R4, TSDBCRS) : P ADDRESS TO EXECUTE 
9383 063044 004737 016376 JSR PC,.CHKTSSR sWAIT FOR SSR TO SET 

9384 063050 FORCERROR 192% @aDFORCE ERROR IF FORCER=1 
9385 063064 103407 6cs 200% 3s6R IF CARRY SET (GOOD RETURN) 
9386 063066 010001 MOV RO,R1 sSAVE CONTENTS OF TSSR 

9387 063070 NEXT . ERRNO 

063070 192%: ERRDF ERRNO, T208SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 

063070 104455 TRAP CSEROF 

063072 001614 .- WORD 

063074 065141 . WORD T208SSR 

063076 012106 -WORD PKTSSR 
9389 063100 005237 002222 INC FATFLG ose FATAL ERROR FLAG 
9390 063104 200%: CKLOOP sLOOP ON ERROR, IF FLAG $e 

063104 104406 CSCLP1 
9391 8 Do e@ WRITE FORMAT to set sama be = {gets reed bea high) 
9392 063106 012700 000001 MOV OWF .I4RES,RO ye 
9393 063112 004737 065652 JSR PC, T20WFMtT ETOP 20PK2 FOR URITE FORMAT 


K1 


9394 06311 


9434 063344 
9435 063350 
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TEST 9: READ/WRITE DATA PARITY TEST 
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066140 
000000 
016376 


002222 
065536 
066140 
000000 
016376 


000020 
065672 


212%: 


232%: 


2524: 


MOV OT20PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC; CHKTSSR 
F 212% 
BCS 220% 
RO,.R1 
NEXT . ERRNO 
ERRNO, T208SSR,PKTSSR 


INC FATFLG 
CKLOOP 


Do e wate Subsystem READ STATUS 


JSR T20 
MOV OT20PK2 ,R4 
MOV R4, TSOBCRS) 
JSR PC. CHKTSSR 
F 232$ 
BCS 240% 
MOV RO,R1 
NEXT. 
ERRDF ERRNO, T203SSR,PKTSSR 
INC FATFLG 
CKLOOP 
If Read Det error NOT=1 
wea ee? pe tobseTexP 
MOV TSOEXSTA. Ri 
MOV 208F STA,R2 
SCONE 
Bis Re), 2683) (Ri) 
MOV eT208FR. Ri 
MOV OT2OEXP -R2 
MOV 620. .R3 
JSR PC, 
FORCERROR 252¢ ,NOTSSR 
BCS 260% 
NEXT . ERRNO 
ERRNO, T20SWP ,MSGSTAT 
CKLOOP 
Do e Write Misc to RESET FIFO 
MOV OMS .RSFIF ,RO 


JSR PC, T20WMISC 


sGET WRITE SUBSYSTEM COMMAND PACKET 
sSET THE PACKET ADDRESS TO EXECUTE 
sWAIT FOR SSR TO SET 

rt. @a0FORCE ERROR IF FORCER=1 
s6R IF CARRY SET ($008 RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
-WORD 909 
«WORD T208SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG ser 
CsCLP1 
sSETUP PACKET FOR READ STA A 
sGET + Md 3 SUBSYSTEM cere © 
T ADDRESS TO EXECUTE 


sSET THE PACKET 
;WAIT FOR SSR TO SET 
ERROR IF a. 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


CSEROF 
«WORD 910 
-WORD T203SSR 
-WORD PKTSSR 
sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG <r. 
CsCLP1 


Then Print Error 
sSET WORDS 0-7 "EXPD=RECV CNOT TESTING) 
iGET EXPECTED READ STATUS 
sGET RECV READ STATUS 
sSET EXPD WORD #6 = RECV TEMP 
EXPD WORD @9 = e RECV (NOT TESTED) 


i ADORE. 
sNUMBER OF BYTES TO COMPARE 
sEXPD EQUAL RECV? 


3:aa0 

36R IF YES 

sREPORT ERROR 
TRAP SERHRD 
. WORD ii 
-WORD T2OSWP 
. WORD MSGSTAT 

sLOOP ON ERROR, IF FLAG SET 
TRAP Csci Pi 


sSET RESET FIFO COMMAND 
sSETUP T20PK2 FOR WRITE MISC 


SEQ 0217 
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9436 063354 066140 GET WRITE SUBSYSTEM COMMAND PACKET 
9437 063360 5 000000 ‘SET THE PACKET ADORESS 10 EXECUTE 
3439 o63390 et emer 82¢ _ SSF ORCE ERROR IF FORCER®1 
$440 063404 188 IF cArry RAY’ SET. (GOOD ) 
SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FARLED TO. SET 
. WORD 
- WORD 
.WORD 

sSET Po, ERROR FLAG 

sLOOP ON ERROR, IF FLAG a 


ite Subsystem READ STATUS 
pete ity error NOT=0 T 


8 


fs 


BSSsCnsessg~* Be 


oT. ; 
arias 
FORCERROR $,NOTSSR 


320% 
. ERRNO 
ERRHRD ERRNO, T2O0RSF ,MSGSTAT 


of 


TRAP CSERHRD 

-WORD 915 

-WORD T2ORSF 
MSGSTAT 


. WORD 
sLOOP ON ERROR, IF FLAG =. 
CsCLP1 


trensferred w vier’ .*, e@ Perity aaa, ~ 
set Ee nen sets read strobe high) 
Resa =>TRS Re=il 
gore Fe FOR WRITE FORMAT 
‘Set Vint 3 SUBS néxeT AopRESS TO € PACKET 
sSET THE P SS TO EXECUTE 


IUAIT FOR SSR TO SET 

ERROR IF FORCER=1 
sBR IF ($000 RETURN) 
{SAVE CONTENTS. OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


- WORD 
WORD 


sSET FATAL ERROR FLAG — 
;LOOP ON ERROR, IF FLAG SET 
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TEST 9: READ/WRITE DATA PARITY TEST 
000100 
000040 
000020 
065556 
066140 


000000 
016376 


000000 
016376 


000001 
065576 
066140 
000000 
016376 


| af an direction OUT end 

or ° 

*CET’ TAPE DIRECTION OUT 
LOOPB 


sSET 
;CLEAR WRITE WRONG PARITY CINVERTED) 
WRITE NPR 


sSAVE CONTENTS 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


- WORD 
- WORD 
WORD 


:SET FATAL ERROR FLAG — 
sLOOP ON ERROR, IF FLAG SET 


- ae = FIFO with byte count oqust te 1 and Tepe direction OUT 


BYTE 
sOATA R1 iF IFO waite DATA ADDRESS 
TOOUPIF sSETUP T20PK2 FOR WRITE FIFO 
GET WRITE SUBSYSTEM COMMAND PACKET 
HE PACKET ohDDRESS TO EXECUTE 


i ERROR IF FORCER=1 
sBR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


3SET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FL 
p aoe ve with tape mounttes § OUT nekS arte loed 


¢ 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 





Ni 
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Do e WRITE FORMAT 
Read 
065652 
066140 
000000 
016376 


ina | 


3 


eee 


eorererereneee 
DaVVW 


Sur , 14RES 

eis0eKe Re 

R4 eSB RS) 
SSR 


FORCERROR 432¢ 
440$ 


Bigeaea 
REREEE RRERERERERE 
HUES SONS 


: 
: 


9542 064170 
9544 06417: 


: 
3: 


to 
os an 


Do a wer FORMAT to set sarang < -lalie 
MOV RO IRESV: 
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TRAP CSCLPl 
set IRESV4==>IRSTR = O (sets read strobe low) 
Parity _Er 

SV42=>IRSTR = O 
20PK2 FOR WRITE A og 
iGET WRITE SARE? hase COMMAND PACKET 
sSET ADDRESS TO EXECUTE 
}WAIT FoR eahe TO SET 
eee Oe (eooe RET 
:BR IF CARRY SET (GOOD RETURN) 
sSAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


3sSET FATAL ERROR FLAG 
3LOOP ON ERROR, IF FLAG SET 

TRAP CSCLP1 
,.Sgete, read strobe high) 


4=22>IRS 
— tRITE A ag | 


ERROR IF FORCER=1 
:8R IF Se (GOOD RETURN) 
SAVE CONTENTS OF TSSR 


sDEVICE FATAL SSR FAILED TO SET 
TRAP 


°. 


sSET FATAL ERROR FLAG 
sLOOP ON ERROR, IF FLAG SET 


READ STATUS 
sSETUP PACKET FOR READ hike 
sGET WRITE SUBSYSTEM COMMAND P. 
TO EXECUTE 


a PACKET ADDRESS 
sWAIT 7 SSR TO SET 
ERROR IF FORCER=1 
sR IF chery. ($008 RETURN) 
sSAVE CONTENTS OF TSSR 
sDEVICE FATAL SSR FAILED TO SET 
TRAP 


ne 
1 eE0P ON ERROR. IF FLAG SET 


ceenar 


T203SSR 
PKTSSR 


csc. Pi 


If Reed Dete perity error NOT=0 Then Print Error 





TSVS - HARDWARE TESTS 

TEST 9: READ/WRITE DATA PARITY TEST 
065744 
064472 
066032 


000002 
100000 


de4ase 


000024 
011540 


013703 
7 


02032 
103002 
000137 


002222 
017242 
016516 
050116 
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472% ,NOTSSR 


PC, 
FORCERROR 
BCS 480% 


NEXT . ERRNO 
ERRHRD ERRNO, T20CWP,MSGSTAT 


FATFLG 
560$ 

PC, CKDROP 
PC, TSTLOOP 
565$ 
T18L00P 
TST 


}LOCAL STORAGE FOR THIS TEST 


t0<017> 
0 


sEXPD ADDRESS 

;NUMBER OF BYTES _— COMPARE 

sEXPD EQUAL RECV? 

3aa0 

iBR IF YES 

sREPORT ERROR 
TRAP 
- WORD 
- WORD 


. WORD 
sLOOP ON ERROR, IF FLAG SET 
TRAP 


:aa0 
iRESTORE CURRENT TSTBLK POINTER 
sEND OF TSTBLK? 


sBR IF YES 
;00 ANOTHER TSTBLK PATTERN 


s//4/4114144/ END SUBTEST /////////7/ 
L10074: 
TRAP CsEsus 
sANY FATAL ERRORS ? 
sBRANCH IF NOT 
sTRY TO DROP THE UNIT 
300 ITERATIONS? 
s6R IF NO 
3LOOP UNTIL ITERATIONS DONE 
84444444444 EXIT TEST S4/4///4/44/4/ 
TRAP CSEXIT 


-WORD 110073-. 


UNTESTED BITS e READ STATUS 
ARE SET TO 1 


IRESV2, IRESV1) 
A,T A TIMER B » UNDEF INED<1:0>) 
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TEST 9: READ/WRITE DATA PARITY TEST 


sBEGIN EXPECTED DATA BUFFER 
sMESSAGE TYPE 
TA FIELD LENGTH 


ooooooco 


sXSTS 
iXxST4 EXPECTED REA wir 
ED READ STAT 


: WORD FOR WRITE SUB.) 
T2OEXSTA: -BLKB 64, US eB WRITE FIFO DATA 
— CTED DATA BUFFER 


SLOCAL TEXT MESSAGES FOR TEST 


iiente gee ails a7 


« 


ver fas lla | ER ADDRESS 
20BFR ,R2 BUFFER IN BYTES 


} SETUP T20PK2 PACKET FOR READ STATUS 
omen 

ae esveten 0 DATA BUFFER 
STORE ash TUS COMMAND 


ers0bT2,R0 
RoStatus. (RO) IN BSELO 


oe cRo} ’ ‘CLEAR 


| SETUP T20PK2 PACKET FOR WRITE NPR 
} INPUT: 
; RO CONTAINS BSEL1 NPR DATA 
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TEST 9: READ/WRITE DATA PARITY TEST 


oo saaaae +20uNPR ; 
Se71 o685es 012701 wv. oT S00 TS. WWAITE SUBSYSTEM DATA, BUFFER 
se fa me ease es aa 


as 065574 RTS 


| SETUP T20PK2 PACKET FOR READ FIFO 


ie BS ire 5 ee Bere 
‘ReTURN 


} SETUP T20PK2 PACKET FOR WRITE FIFO 

} INPUT: 

; RO CONTAINS BYTE COUNT 

; Rl CONTAINS DATA PATTERN BLOCK ADDRESS 

+20uF IF : 
SA sSAVE.RY-RS UNTIL NEXT RETURN 


Artie WRITE Te subs ove jen DATA BUFFER 
oPu. UF TtO. (R2)- sSTORE WRITE FIFO IN BSELO 


SB nes ines 3 DATA Ba a ie hanell 


sO0NE ALL BYTE 
10% 36R IF NO 
PC sRETURN 


} SETUP T20PK2 FOR WRITE FORMAT TRANSPORT REGISTER 
g 

; INPUT: 
; RO CONTAINS DRIVING DATA PATTERN 


Te oy 3 DATA BUFFER 
iSTORE WRITE M4 Up RY, BSELO 
iSTORE DATA 
;RETURN 


| SETUP T20PK2 PACKET FOR WRITE MISC. 
; RO CONTAINS WRITE MISC DATA 
a 
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066150 
000010 


fect 


BE Ins 


9750 
3733 
9734 
9755 
9756 
9757 
9738 
9759 
9760 
9765 
9766 
9767 
9768 
9769 
9770 
ae 
9774 
9775 
3779 
9778 
9779 
9760 
9763 


a 
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T2OWMISC : 
MOV @T200T2,R1 WRITE SUBSYSTEM ne. fe 


oPu WATSC, (R1.)- 1 STORE WRI IN BSELO 
RO,(R1 sSTORE ENDED EATURES IN BSEL1 
RTS PC }RETURN 


; SETUP T20PK2 PACKET FOR WRITE MISC. INVERT EXTENDED FEATURES SWITCH 
420SExt : 
MOV —s- @T20DT2. RO 


me esis 


RTS 

; CLEAR EXPECTED DATA MESSAGE BUFFER 

f20cLex : 
Mov 


WRITE SUBSYSTEM DATA BUFF! 


ioe WRITE MISCELLANEOUS IN @Sey BSEL1 


yal ae aa Ri sGET EXPD ADDRESS 
MOV @T20EXEND- T20EXP , RO 3sGET EXPD SI 
10%: RB (R1)- sCLEAR A BYTE 
OE sDONE? 
BGT 10% sBR IF NO 
RTS sRETURN 
se 
sSet WORDS 0-7 of expd message BUFFER = to recv since not testing 
$20SETEXP : 
@T2QOEXP ,R2 
6T R,RS 
os. 
S$: (R35, (R2)- 
RO 
S$ 


sGET EXPD 
1GET READ STATUS RECV BUFFER 
sSET WORDS 0-7 EXP= 


RECV 
iSET EXPD=RECV 
DONE =_— 0-7 WORDS? 


J 


WRITE CHARACTERISTICS COMMAND PACKET 
420PACKET FOR TEST 
“WORD 190008 IERITE CHARACTERISTICS 
T200ATA }ADORESS OF TERISTICS BL 

iMINIMUM MESSAGE PACKET SIZE 


sCHARACTERISTICS DATA BLOCK 
sADORESS OF RESSAGE BUFFER 


ILENGTH OF MESSAGE BUFFER 
TEXTENDED FEATURES UNIT NO. 


sMESSAGE BUFFER FOR ALL TEST 17 COMMANDS 


we 
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TEST 9: READ/WRITE DATA PARITY TEST 
T20BFR: 


ueeesrsr 


-WORD O 
T20BFSTA: .BLKB 64. 
T2O0BEND : 


}WRITE SUBSYSTEM READ STATUS COMMAND PACKET 
‘ =<, +10>€177770 


° P.WRTSUB!IP . ACK sWRITE SUBSYSTEM WITH ACK 
° 200T2 sLOW ADDRESS OF tt A 
38 Size 


T20PKe2: 


"WORD 
; ; TEL te FIFO DATA OUTPUT BUFFER 


ENDTST 
L10073: 
TRAP CseETsT 
-SBTTL TEST 10: MANUAL INTERVENTION 


RSs ett EMESIS Et SUMS PENT, EE ST 


The SUBSTSTEM THAT CMBOT BE rawIPLL 
IUatCSH hE Hes Nt ode ee re  SeLerTioe 
Tuas TO ett Tags 6 ire 


DIAGNOSTIC SUPERVISOR 
SELECTION CODES AND INE os 


— on he ret 
W719 te. INDICATORS 


tate Aer ero er 
ekg Me Pee 
) 


EXIT ata 0 


EACH MENU ITEM CORRESPONDS TO A SUBTEST, AS FOLLOWS: 
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’ 
;PRINTS OUT THE MENU ON THE CONSOLE TERMINAL . 
t 


. 
sCAUSES ALL THREE LED INDICATORS ON THE M7196 MODULE 
:T0 BE ILLUMINAT AFTER INITIATING TH Tee ae ATOR 
+ SHOULD *§ “AND VERIF ALL LIT. 
S ROUTINE FIRST USES THE WRIT BSYSTEN MEMORY COMMAND To 
iS THE FORCE WRONG PARITY FLIP Foe WHI SERVES 0 ORIVE THe 
SSOR NOT OK" LED. THEN IT ENTERS A LOOP THAT CONTI 
‘WRITES THE LOW BYTE OF TSDB aio READS Ke TSSR. THESE LATTER Two 
s OPERA TIONS WILL CAUSE THE "NOT SSR” AND “ORIV Bus" LED'S TO 
sGLOW -- THEY ARE NOT REALLY LIT AT ALL TIMES SHOULD APPEAR 
sREASONABLY VISIBLE. 
: 


SINITIALIZES THE CONTROLLER TO CAUSE ALL LED'S TO 
sEXTINGUISH. 


iTHTS ROUT INIT es Ne CONTROLLER, seuss 8 
ih 2 Rr a io SeTe A imecaee On’ he 


TISSUES A MESSAGE INTS HESSAGE ON 
sCONSOLE TERMINAL TOR TO TOGELE GNCLING. 
sSUTTCH ON ON THE TRANSPORT, THEN WAITS FOR AN ATTENTION IN INTERRUPT. 
;EACH TIME THE TRANSPORT TRANSITIONS FROM ON-LINE OFF-LINE oR 

PS Pont THE INTCRECET A -t ere 


VERIFY THAT 
irae PS Ee ne ahikn ON ScScat ts 


ACED OFF -L1 
Hass sslbs A SeGUeNS OF (rolls eas Sy tan ‘ 


et. ALONG It ABLE FUNCTION (NEF) ERROR Bly Be 


1THIS H's ie Peracts OPERATOR TO MOUNT A Peete. 
Ma "FOR Te 7 bores NOT HAVE A WRITE- E RING ED, THEN 
ee THE OPERATOR TO Rockin venir s THI. 


Se dee ee TS, 
IES 


, THE PROGR 1 THE 
LP ONITC PROTECTED STA THEN ATTEMPTS TO UR TA ON THE 
: £ 1 APPROPRIATE ERHOR TERMINATION INDoC, 


s TAPE ve EXPE Me: TE ge SNe THAT 
1TH WRITE TION NOT BE PERFORMED BE 

WRITE-PROTECTED. IF THE APPROPRIATE TERMINATION IS NOT RECEIVED, 
sAN ERROR IS REPORTED. 


THe OPERATOR TO PL 
ANY ARE Orr LINE) THEN AT aTTerets TO AD PERE SAN AN 
FOR EACH WITH THIS FEATURE = 
s THE AM FORMATS AND PRINTS OUT T THE RESULTING STATUS. CIF THE 
1 TRANSPOR 1 <is,NoT EQUIPPED WITH THIS FEATURE, A MESSAGE INDICATING 
a 


eparscsesecrapanes 





He 
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MANUAL INTERVENTION 


T10:: 
sGET OPERATOR FLAGS 


071630 OTeST NOT EXECUTED" 
BR 3$ VRP IF NOT Finks? TEST 


072745 MESSAGE 
016550 00 


TRAP CSRFLA 


071032 
002 


176 
016034 


TRANSPOR 


rat eoeaaton No eS TS Ot 
MOV ST3EMS2, -( SP) 

MOV o3. (SP) 

MOV *RO 
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SEQ 0226 
TEST 10: MANUAL INTERVENTION 
1048 7 TRAP ss CSPNTF 
9945 066470 Ona 739 Orsene JSR PC, T38REST SET P TO INITIAL VALUES vena 
. 3 
9946 066474 004737 016034 JSR PC. SOF INIT :00 SOFT INIT ROLLER 
9947 066500 103405 8cs 106% :8R IF SOFT INIT = OK 
9951 066502 010001 MOV RO,R SA ENTS OF TSSR 
S982 066504 ERROF ERANO , SEIERR , SFIMSG ;DEVICE FATAL ERROR DURING INIT 
066504 104455 TRAP —s- CSERDF 
066506 4732 .WORD 1002 
066510 Sa “WORD SFIERR 
066512 012074 [WORD SFIMSG 
9953 066514 013737 002202 071570 100%: MOV UNITN, T38DSW sSET UNIT NUMBER 
9955 066522 012704 071550 Mov eT R4 sSUBROUTINE NEEDS PACKET ADDRESS 
066 004737 010662 JSR PC, URT s ISSUE ware CHARACTERISTICS 
9957 066532 10 BCS 1108 :0R, COMMAND OK 
9961 066534 010001 MOV R1 sSAVE CONTENTS SSR 
066536 ERRHRD ERRNO, WRTMSG, SFIMSG ;WRITE CHARACTERISTISC FAILED 
0665 04456 TRAP  § CSERHRD 
066 753 .WORD 1003 
066 “WORD WRTMSG 
066 012074 [WORD  SFIMSG 
9963 066546 110%: 
9964 066: 112737 000000 071061 Move #¢0,7388S1 :CLEAR BIT 04 
9965 066554 112737 000011 071060 MOVB ei 738850 ;WRITE MISC COMMAND 
9966 066 012704 071050 MOV OTSEPACKET ,R4 ;SET UP NEW WRT. SUBSYS MEM. COMMAND 
996 3 
9368 ;NOTE: THIS COMMAND TURNS ON THE PROCESSOR FAIL LED 
996: ra 
9979 066566 010465 000000 MOV R4, TSDB(RS) :SET THE PACKET ADDRESS 
9971 066572 004737 016376 PC’ CHKTSSR sWAIT FOR SSR TO SET 
9972 066576 103405 BCS 1308 ;BR IF CARRY SET ( RETURN) 
066600 010001 MOV R1 sSAVE CONTENTS OF TSSR 
9977 066602 ERRDF ERRNO, T38SSR,PKTSSR sDEVICE FATAL SSR FAILED TO SET 
066602 104455 TRAP CSERDF 
066604 001754 . WORD 1004 
Gece +7: : 3 $13108 “GORD Pietecr 
9978 066612 150$:  CKLOOP :LOOP ON ERROR, IF FLAG SET 
066612 104406 TRAP =—s-«s CSCLP1 
9979 066614 SETPRI #PRIO7 sRAISE THE PRIORITY 
066614 012700 000340 @PRIO7 RO 
066620 104441 TRAP ss «C$ 
9980 066622 37? 071036 cLR TTION2 1 ASSUME INTERRUPTS ARE ENABLED 
9961 032737 100 177560 BIT #100, @®TTICSR sARE TTI S ON? 
9382 Oeee ees 001005 7018 sBRANCH 
9963 066636 37 071036 INC TTION2 FLAG ERRUPTS OFF 
Sree Gesees Storey gosues I7™o 4, A sie eeTTicoe MN Vel ne 
3 : 
9986 066654 o1ti3? 071040 MOV ori} Twgave sSAVE THE CURRENT TI VECTOR 
9987 066660 012 A 070336 MOV 05904 ,(R1)- ' NEW INTERRUPT ROUTINE 
9968 066664 011 071042 MOV (Ri) v2 SAVE VECTOR PRIORITY 
9989 066670 012711 340 MOV @PRIO7,(R1) sUSE PRIORITY SEVEN 
9990 066674 SETPRI #@PRIOO ;LOWER INTERRUPT BR LEVEL 
066674 0 000000 MOV @PRIOO,RO 
066700 104441] TRAP C$SPRI 
9991 066702 012701 177777 Mov @-1,R1 sDATA TO WRITE TO TSDB 


Je 
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10037 067100 


INTERVENTION 
0127 001750 
110165 000000 
016 000002 
001372 
7 
012746 072641 
rt 7 Hee 4 000001 
104417 
062706 000004 
004737 016034 
103405 
010001 
104455 
001755 
003654 
012074 
013737 002202 
012704 071550 
004737 010662 
103405 
010001 
104456 
001756 
012074 
112737 000000 
112737 000025 
012704 071050 
010465 000000 
004737 016376 
poe 
10001 
104455 
001757 
072246 
012106 
104406 
012700 000340 
10444 
005037 071036 


071570 


071061 
071060 
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12%: NOP 
MOV #1000. ,R2 
14%: MOVE =_- R11, TSDBCRS) 
MOV TSSRCRS),RO 
DEC R2 
14% 
BR 12% 
15$: PRINTF #T38MS2 
JSR PC, SOF INIT 
aoe 
ERROF ERAND, SFIERR , SFIMSG 
200%: 
MOV UNITN, T38D0SW 
MOV OT38PK2 ,R4 
JSR PC, WRTCHR 
Poy By g10¢ 
ERRHRD ERRNO, WRTMSG, SFIMSG 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSessesse 


: THIS WRITE SUB-SYSTEM MEMORY COMMAND JUST HOLDS THE LEDS OFF 


jpseeeesceccceenessscooconnssssooernsessoooonssssoooonsssscoees 


$: 


Move 8 #0. 7398s) 
nove $23, 138850 

MOV R4, TSDB(RS) 

JSR CHKTSSR 

oy 

ERROF ERRNO, T38SSR,PKTSSR 

250%: CKLOOP 
SETPRI #@PRIO7 
cLR TTION2 


SEQ 0229 
sALLOW OPERATOR TO TYPE tC 
sSET-UP INNER L 
WRITE DATA To" S06 
sREAD TSSR 
INNER COUNT 
;LOOP TILL EXPIRES 
sLOOP UNTIL HALTED 
sTYPE CNTL C TO EXIT 
MOV OT38MS2,-(SP) 
MOV #1.-(SP) 
MOV SP .RO 
TRAP CSPNTF 
ADO 64,SP 
SOFT INIT OF CONTROLLER 
iBR IF SOFT INIT = m3 
CONTENTS OF T 
‘DEVICE FATAL ERROR DURING _pNIT 
CSEROF 
"MORO 005 
:WORD SFIERR 
“WORD IMSG 
;SET UNIT NUMBER 
sSUBROUTINE NEEDS PACKET ADDRESS 
sISSUE WRITE CHARACTERISTICS 
:8R, IF COMMAND ISSUED OK 
sSAVE CONTENTS OF 
;WRITE CHARACTERISTISC FAILED 
TRAP  CSERHRD 
.WORD 1006 
"WORD WRTMSG 
-WORD SFIMSG 
sCLEAR G4 
sSTOP DRIVE TEST 22 
sSET . SUBSYS MEM. COMMAND 
sSET Pp ADORE 
sWAIT FOR SSR TO SET 
1BR C RETURN) 
3SA ENTS OF 
sDEVICE FATAL SSR FAILED TO SET 
TRAP CSEROF 
.WORD 1007 
.WORD T38SSR 
“WORD PKTSSR 
sLOOP ON ERROR, IF FLAG SET 
TRAP =«-« CSCL PA 
sRAISE THE PRIORITY 
epnTO7 RO 


TRAP 
sASSUME INTERRUPTS ARE ENABLED 


Ke 
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TEST 10: MANUAL 
10038 067104 


o 
bd 
«4 


#100, @eTTICSR sARE TTI INTERRUPTS ON ? 
710% 3BR YES 

FLAG $ IF INTERRUPTS OFF 
$ 

reat of tit VE Fons 
sSAVE THE CURRENT TTI VECTOR 
65908, ( 3SET NEW INTERRUPT ROUTINE 
(R1), TPSAV2 sSAVE THE VECTOR PRIORITY 
@PRIO7,(R1) sUSE PRIORITY SEVEN 

@PRIOO ;LOWER INTERRUPT BR LEVEL 


TRAP 


BEES 


3 
H 


sALLOW CNTL C 
260% 3;LOOP UNTIL STOPPED 


8g 


3 
: 


sTELL‘EM WHAT TO TYPE 
@T3EMS2, -( SP) 
$1. ago) 
CONTE 
64,SP 
sLOWER PRIORITY TO ALLOW INTERRUPTS 
MOV @PRIOO,RO 
CLEAR RECEIVED FLAG — 
DO SOFT INIT OF CONTROLLER 
;8R IF SOFT INIT = OK 
RO,R1 sSAVE CONTENTS OF TSSR 
ERRNO, SFIERR, SFIMSG 1DEVICE FATAL ERROR DURING INIT 
CSEROF 


* 
S 


CLR 
JSR 
BCS 
MOV 
ERROF . 


Word SFE 
. WORD IERR 
-WORD SFIMSG 
071570 sSET UNIT NUMBER IN PACKET 
071566 sENABLE ATTENTION omens 
’ INE NEEDS PACKET 

s ISSUE WRITE ene Yh a Vi 


$_COnTENTS Or 133h 


peraee 


071600 


OT3EPK3 RO 
000000 R4.TSOBCRS) 
1 016310 PC. WAIT 

10077 0673 Ro 
10078 067314 000002 TSSR(RS),R1 
10079 067320 000100 @OFL RI 

000100 SOFL .R2 
000200 OSSR.R2 


R2,Ri 


eraSlSss 





Le 
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350% 
ERRNO, T36SST ,PKTSSR 


;LOOP ON ERROR, IF FLAG 
;TELL OPERATOR TO TOGGLE SWITCH 
MOV @T36MS1,-(SP) 
mov #1,-(SP) 
TRAP  CSPNTF 
ADO SP 
sTELL OPERATOR TO DO tC TO EXIT 
MOV @T36MS2,-(SP) 
MOV #1,-(SP) 
TRAP © CSPNTF 
64 ,SP 
@PRIO7 sRAISE THE PRIORITY 
#PRIO7,RO 
TRAP  C$SPRI 
TTION2 sASSUME INTERRUPTS ARE ENABLED 
meio 1 ARE TTI INTERRUPTS ON ? 
TTION2 iFLAG F INTERRUPTS OFF 
#100 ,@#TTICSR 


ENABLE 
OTTIVEC, RI iSTART on Tir vec 
: THE CURRENT os TT. VECTOR 


“VECTOR PRIORITY 
Y SEVEN 


al 


or 
H 
w 


NC 
MOV 
MOV 
MOV 
MOV 
MOV 
SETPRI 
NOP 
TST 
BNE 
BR 
PRINT 


@TSSINT , -(SP) 
#1.-(SP) 


RO 
CsPNTF 
04,SP 
TSSRCRS),R1 wee oe a STATUS 
OOFL .R1 


LINE BI 
on IF DRIVE, IS OFF-L 
ST3BONL : "DRIVE IS NOW ONCL INE™ 


#1,- 
CsONTF 
64 ,SP 


0113 067566 BR 390% sALMOST DONE 
10114 067570 s"ORIVE IS NOW OFF-LINE” 





M2 


TSVS - 


7634 

10118 067634 
067: 

10119 067636 

10120 067642 


067666 
10130 067670 
067670 
10131 067672 
10132 067700 


te) 

10139 067714 
067714 
067716 
067720 
067722 

10140 067724 
067724 

10141 067726 

10142 067732 

10149 067744 
067744 
067746 
067750 


10150 067754 
10151 po thy 
10152 067762 


HARDWARE TESTS 
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072422 
000001 


CLR INTRECV 


JMP 300% , 
GMANIL TS8MSG,T3EDAT,-1,NO 


; 
RO,R1 
ERRNO, SFIERR , SFIMSG 


UNITN. T380SW 
OT38PK2,R4 

PC, WRTCHR 

4108 

ERRNO, WRTMSG , SFIMSG 


071074 
000004 


FATFLG 


FATFLG 


sCLEAR INTERRUPT FLAG 
sTRY AGAI 
sWAIT FOR OPERATOR TO 


;RETURN 0 MAIN MENU 


s00 SOFT INIT OF CONTROLLER 
sBR IF SOFT INIT = OK 

sSAVE CONTENTS OF TSSR 

iDEVICE TRIN, COR Ce PS 


sLOOP IF SELECTED 
sSET 


OT360FL 
@1,-(SP 


SP, RO 
CONTE 
64,SP 


3 INE NEEDS PACKET ADDRESS 
sa SSUE WRITE CHARACTERISTICS 
OMMAND JSSLED OK 


SAVE CONTENTS OF TSSR 
SAVE CHARACTERISTISC a 


sLOOP IF SELECTED 
ere XSTO_ CONTENTS 


sSET FATAL FLAG 
sLOOP IF SELECTED 


TR 
sWAS THE DRIVE NOT WRITE LOCKED 


CsCLP1 


SEQ 0232 


-(SP) 
5 
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10153 067766 
10154 067770 


10166 070032 
070032 
070034 
070036 
070040 

10167 070042 


07007 
10177 070072 
0700 
10178 070074 
10179 
10180 
10181 


30188 

10183 070100 

101864 0/0100 
070100 
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sees 
b71656 
016310 
000002 
100206 


071074 
004000 


071622 435%: 


TSSRCRS),R1 
OSC :SSR!61T1 18172, R2 


$ 
ERRNO, TSBWRT ,PKTSSR 


T38BFR+6,R1 
#681711,R2 
R1,R2 


$82 = 38388588833 
iA 


450% e 
ERRNO, TS6WLE , EXPREC 


450$: _CKLOOP 


JP 24 


sBR, ar Ba By NOT SET 
sRE-WR 


1SET UP yh ADDRESS 


ADDRESS 
ww TroR Pega To set 


i ee EL” ccomecr 
oTésh I INCORRECT AFTER WRITE COMMAND 


sLOOP ON ERROR, IF FLAG 
cere XSTO CONTENTS 
EXPECTED 
iSET THE WRITE LOCK ERROR BIT (XSTO) 


oD IT IT SET 


sLOOP IF SELECTED 
sGO BACK TO MENU 


§ SSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSESSESSESSSeseseees 
LONGER 


$ 
hata aetna a aa a at 


PRINTB #T38MSS 


071570 500%: 


s"EXE ANY OTHER MENU SELECTION TO STOP 
MOV @T38MS3,-(SP) 
MOV $3.-(SP 5 


Trae GONTB 
ADD 04,SP 
TIAL VALUES 


sore 10 





BS 
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1008 
10203 070176 000000 071061 
10204 070204 pas 9s 3 071060 


000000 
016376 


sCLEAR BIT 

sEXECUTE DRIVE TEST 22 

SET UP NEW WRT. SUBSYS MEM. COMMAND 
Pp T ADDRESS 


qeredae 


s SAVE ENTS OF TSSR 
»PKTSSR sDEVICE FATAL SSR FLED TO. SET 
- WORD 
- WORD 
. WORD 
sLOOP ON ERROR, IF FLAG a 
sRAISE THE PRIORITY 


28 


TRAP 
TTION2 sASSUME_INTERRUPTS ARE ENABLED 
ela 3 TTI F i - wai ON ? 
TTION2 iFLAG SET IF INTERRUPTS OFF 
eon ane 


sENABLE INTERRUPT 
@TTIVEC,R ISTART OF TTI VECTORS 
; SAVE THE CURRENT TTI VECTOR 
sSET NEW INTERRUPT ROUTINE 
sSAVE THE vector PRIORITY 
iUSE PRIORITY SEVEN 
@PRIOO sLOWER INTERRUPT BR LEVEL 


TRAP 


Ft al 


560%: 


MOV 
MOV 
MOV 
MOV 
MOV 
SETPRI 
NOP 

BR 


sLOOP AWHILE 
560% sSTAY IN “TIGHT” LOOP 


PROCESS CONSOLE INTERRUPTS 
t- 
5908: SAVE MORK REGISTER 
IGET THE OPERAT 

reTRIP OFF PARITY BIT 
TS IT A CARRIAGE RET 


233 


TsAv2, setTavEC RESTORE VECTOR 
TPSAV2, BOTTIVECs2 RESTORE SUPER PRIORTY 
pos, 188080 STOP DRIVE TEST 22 
+ at BS1 
set He's WRT. SUBSYS MEM. COMMAND 
PACKET ADORESS 


— 


oa 
H 
—) 
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INTERVENTION 
001017 595$ KEEP GOING SET 
350 OEE BELAY ROUTINE an ieee 
0 . 
LSOLY,CPC)- 
~6(PC) 
“23c°c) 
071044 - 
016376 


DEC 
BNE 
JSR 
BCS 
MOV 
ERROF 


3SA ENT 
:DEVICE FATAL SSR FAILED SET 


VE CONTENTS 
‘Device FATAL ERROR ORI pat 


gets 


g 
3 


sLOOP IF SELECTED 


ADORESS OF MESSAGE BUFFER 
}ALTERNATING 1’S AND O'S 


+ OUT THE ME 
it He be te 
bce ye 


sSAVE CONTENT 
sWRITE CHAR 


seceea nate 33 


sLOOP IF SELECTED 
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90, 7388S1 ;CLEAR BIT #4 a saaemites 
STSSPACKES RA iSET UF NE UR mauasys M _ COMMAND 
R4, TSDBCRS) 

#100. , TS8OLY 

PC ,WAITF 

TSSR(RS),R1 


@SSR,R1 
630% 


000000 071061 
071060 


000144 071044 
016310 
000002 


PEEEEE 


fos] 
=3 


10296 0707 

1 070712 

10308 
070730 


Rg 


GE58.07E 3s 
LSOLY,CPC)- 


sSTART DELAY COUNT DOWN 
38R, IF COUNTER IS NOT AT DONE 
ion Ir" Gani set C60 
:6R IF (GOOD RETURN) 
3s SAVE SOFT 
EVE PATA SoR F TO SET 


sLOOP ON ERROR, IF FLAG § 


sMESSAGE BUFFER ADDRESS 
SS BITS 


INO TLL STUFF. CrTNeR 
AO PRINT MESSAGE BUFFER CONTENTS 
160 BACK TO MENU 
aS3*e Abs: Se fest RETURN TO THE SUPERVISOR 
3 
TRAP CSEXIT 
WORD L10075-. 
{LOCAL TEXT MESSAGES FOR TEST 
t- 
sLOCAL STORAGE FOR THIS TEST 
ge 


}LOCAL STORAGE FOR THIS TEST 
t- 


T 


ai WORD 0 IF SUPERVISOR TTI INTER 
Veave; .worD 6 ysave Trt VErToR. ated 
TPSAV2: (WORD 0 {SAVE TTI PRIORITY 
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TEST 10: MANUAL INTERVENTION 
10338 071044 000000 WORD 0 :DELAY COUNTER FOR TEST 
suave guaSYSTEN Fen ERO, ACK,CVC=1 
OF CHARACTERISTICS BLoOcK 
VALUE OF BLOCK SIZE 


sMESSAGE BUFFER 
sEND OF BUFFER ADDRESS 


F PACKET FOR TEST 
sWRITE . MEM. -» _ACK,CVC=1 
sADORESS OF SELECT DATA BLOCK 


sSTARTING VALUE OF BLOCK SIZE 


sSELECT DATA BLOCK 
sADORESS OF MESSAGE BUFFER 


sLENGTH OF MESSAGE BUFFER 
sEAI BIT WORD 
sORIVE SELECT WORD ETC 


TE BUFFER 


LOCAL TEXT MESSAGES FOR TEST 
t- 


14] TSO6NE: .ASCIZ ‘Stend-elone Merwel Intervention Not Executed’ 
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TEST 10: MANUAL INTERVENTION 


losos 972000 oa «= 38S ASCE‘ TesR orrect ceuTTeD Uren URTE photec? On 
137138 t °1sTO" 


WRITE L 
BIN et ee eet ects Arter WRITE SUSSYSTEM MEMORY: 
SBA Int Rece bw 


MESSAGE BUFFER RELEASE’ 
itch #0 Generate ATTENTION Interrupts 


eee SS2RRAAAAAAARS 


NANNNNNNNANNNGN 


1$,2¢,36,46,56,68 
8¢.94.108,0 


ee ved OPERATION ey thie FOLLOWING OPTIONS:' 
<12>' Menu’ 
os All “M7 96 LED’ ‘s’ 


NNNNNNNNGN 


yy rensport Stetus 
turn to Diegnostic Supervisor’ 


se 

sLOCAL STORAGE FOR THIS TEST 

t- 

T3EDAT: . ° sLOGICAL RESPONSE TO QUESTION 
T36REST: 


9140206, 
eT S8TAD.(R1)- a 
46. .(R1)- ; DATA Brock IN BYTES 
Ri }- EAR BSELO AND BSELi 
cai) CLEAR DATA AREA: 

sRETURN ‘ 


aeeeeeeaes 


azz 
: 


“Vi 
> § ‘ 
am 


: 


S THE CONTENTS OF 
BUFFER RETURNED BY THE 
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INTERVENTION 


071542 
074110 
000001 


NOTE: Rl IS IGNORED IF KTENABLE FLAG IS CLEAR 


sSAVE THE REGISTERS 
RO, RS sSAVE LOW ORDER ADORESS 
KTENABLE sADDRESS ABOVE 26K? 
910% :8R IF YES 
Ri 3SET HIGH ORDER ADDRESS TO 0 
RL.RS 


toMIET Batis 70 C Bot 
Ri ISIFT 10 HEGH ORDER FOR PRINTOUT 
@T3BASO,R1,RS  ;PRINT MESSAGE BUFFER ADORESS 


33338 


~ 
D 
ct 


sPRINT HEADER FOR CONTENTS 


222 8 


MOV 
MOV 
BEG 
JSR 
MOV 
MOV 
MOV 
chp 
BEQ 
MOV 


PR 
an 


T POSITION 
POSITION 
POSITON 


arts 3,234 1'ho © ARE SAVED 


@ 
- 
o 


} R4 = 
INTX STSBASN,R4, (RS) 


Sohees 


#T38AS1, -(SP) 
#1,-(SP) 


RO 
CsPNTX 
64 ,SP 


RS)-,-(SP) 
na (0) 
@3,-(SP) 

SP ‘RO 
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TRAP CSPNTX 
ADO #10,SP 


074110 ct T38CNT EAR COUNTER 
#7 38ASC RA, CRS)» Seip onrge THE CONTENTS OF MEMORY “ESS, ce 
steko 


PybnT x 
000010 610,SP 
074110 
000200 
074110 


aE EE 
mad 
Pe 
J 


074110 


EAR ER 
INT Grin New LINE 


Messege Buffer Address = #01805’ 
Message Buffer Contents: ’ 
SD45A: 503" . 
Bytes04sA; 803’ 
sCOUNTER FOR PRINT 
74112 L1007S: 


0 
074112 TRAP CseTsT 
-SBTTL TEST 11: CONFIGURATION TYPEOUT 


THIS IS A STANDALONE ROUTINE THAT PR 
THE CONFIGURATION OF THE M7196 PODULE. AND T5vOS suasveren. SPECIFICALLY, 
THE FOLLOWING INFORMATION IS PRESENT 


1-0 BEATURES ENABLED) OR OFF (EXTENDED FEATURES DISAAEDS, “ee 


2.0 STATE OF THE BUFFERING ENABLE SWITCH ON THE ce & 
(BUFFERING ENABLED) OR OFF (BUFFERING DISABLED 


3.0 MICROCODE REVSION LEVEL OF THE M7196, 
_y ap patent: apne 


5.0 Fea Beau eit a STA RS Be ny, fhe PROG PROGRAM UILL INDICATE, ) 


THE OPERATOR IS EXPECTED je READ THE PRINTOUT AND VERIFY THAT IT rnoleate 
ACTUAL CONFIGURATION AT HAND. IF, FOR EXAMPLE, THE PROGRAM TES 


2323 


ALAR 


as 
it 


peas 
: 


10516 
10519 074110 
10529 074112 


z 
w 
pa 


« 
a 
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TEST 11: CONFIGURATION TYPEOUT 


7% gee ee os Cpe een bo 1 ONLY ONE IS PRESENT, 
Aton MUST INT T THis AS kno’ ATTERET TO FIND THE 


Fe AE ig en te et ane Ae 
Difie RSTn ahaa Cid BO WS Sas FERRE rons. 


WHEN ITS ACTIONS ARE COMPLETED, WILL EXIT BACK M pm | 
etn Tora ie keh Mune: Gee 


ERED SO THAT THEIR CONFIGURAT IONS CAN BE 


st 
Tll:: 
RFLAGS RO sGET OPERATOR FLAGS 


BEQ (108 BR, IF OK TO RUN 
OT SONE RO SMTesT NOT EXECUTED" 

118 iJUMP OUT OF TEST IF NOT 

s1ST3910,RO iTEST ID MESSAGE 


» TSTSETUP : SETUP 
31S MANUAL INTERVENTION ALLOWED? 
20% ;8R, IF MANUAL INTERVENTION ALLOWED 
645 sJUMP TO OUT IF NOT 


168 iF Sort init = 
VE CONTENTS. OF TSSR 
{DEVICE FATAL ERROR DURING INIT 


TRAP CSRFLA 


MOV 
BR 
MOV 
JSR 
JSR 
BCS 
we 
JSR 
BCS 
MOV 
ERROF 


sLOOP IF SELEC 
T NUMBER 
= 
é warTe CHARACTERISTICS 
SSR = 
sWRITE CHARACTERISTISC FAILED 
TRAP CSERHRD 
.WORD 1102 
“WORD SFIMGE 
, SF IMSG 
sLOOP IF SELECTED 
304406 TRAP wut tc? 
13701 Mov T39BFR-12,R1 :GET XST2 STATUS FROM MESSAGE BUFF: 
oT39SFS :"STATE OF EXTENDED FEATURES SW =" 
012746 MOV OTS9SFS,-(SP) 
012746 MOV 1, ass?) 
Rae sOnTX 
64,SP 
@81T7,R1 s CHECK STATE E OF €.F.S. 
100% :6R, IF EXT. FEA. SW. IS ON 
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TEST 11: CONFIGURATION TYPEOUT 
10596 074260 PRINTX #@TS390FF 
074260 oe aes 


RO 
CsONTX 


1$KIP OTHER PRINT STATEMENT 
° 


@T390N, -(SP) 
MOV 1. (S) 
TRAP CsPONTX 
ADD 04,SP 
;"STATE OF BUFFERING SWITCH =* 
MOV @T39SBS, -(SP) 
#1,-(SP) 
TRAP $PNTX 
04,SP 
:CHECK STATE OF BUFFERING SW 
;BR IF BUFFERING IS ON 
4” OF we 
OT39OFF , -(SP) 
sp} 


TRAP 


9 4 OTHER PRINT STATEMENT 
: ve 


ADD 
sONLY re! MICROCODE REV LEVEL 
7. REV L 


10619 074506 
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TEST 11: CONFIGURATION TYPEOUT 
10623 074510 010001 sSAVE CONTENTS OF TSSR 

10624 074512 sWRITE CHARACTERISTISC FAILED 

0745 TRAP 

. WORD 

. WORD 

WORD 


Fay 


LOOP IF SELECTED 
, CscLP1 


RAP 
sCHECK FOR EXTENDED FEATURES SW SurTcH 
sBR IF SWITCH IS ON 


sWRITE MISCELLANEOUS CONT/READ STATUS 
+ FUNCTION Pt han BIT CTURN ON EXTFEA HW SWITCH) 


~ 
Ww 
«4 


sWRITE 


s1 
+S on SSR 
:BR, IF NO ERROR 
HERROR . SAVE TSSR 
3TSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
TRAP CHERHRD 


SONBA 
-WORD PKTSSR 
160%: CKLOOP sLOOP IF SELECTED 
TRAP CsciP1 
OT39PK2 ,R4 ADORESS 


; SUBROUTINE NEEDS PACKET 
§SSSSSSSSSSSSSSSSSSSSSSESSSSSSSSESSSSSSSSSSESSSSSSSSSSSSSESSSSSSSESsssess 
;WRITE CHARACTERISTICS COMMAND (CALL TO WRTCHR) 


é 
§ SSSSSSSSSSSSSSSSSSTSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSSsess 


PC. URTCHR LISSUE WRITE CHARACTERISTICS 
if eae ne © 
ERRNO, MRTMSG , SFIMSG WRITE CHARACTERISTISC FAILED 


pang 


sSCOPE LOOP 
+ TO ay & 2 t+] 
eas eas oe “ 
iSAvE CONT STENTS: OF 
Te CHARACTERISTISC raneo 
CSERHRD 
TUORD 1107 
-WORD WRTMSG 
-WORD SFIMSG 
TRAP 


sLOOP IF SELECTED 


TSSRCRS),R1 TSSR STATUS 
OOF .Ri OFECK FOR OFF CINE 
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TEST 11: CONFIGURATION TYPEOUT 


10669 074676 BEQ 200% BR, IF ORIVE IS ON-LINE 
10670 p Ld @TS90F 2, UNITN : "DRIVE NUMBER Xx IS rw 


33 
$F 


aoGRS 
3a; 
g 


z | 
z % 


eds 


ADO 
T39BFR-6,R1 sREAD EXTENDED STATUS (XSTO) 
#81T2,R1 sIS ORIVE WIITE PROTECTED 
Bi PROTECTED 


BNE 210% s6R, IF 
10676 074766 OTSOWPN,UNITN s"ORIVE NUMBER IS NOT WRT PRO” 
074766 002202 MOV 
074772 
074776 
075002 


MOV 
MOVB 
MOVB 
MOV 
MOV 
MOV 
JSR 
MOV 


a 
~ 
C «4 
=< 


0250, (PC )- 
 aetahceatieaat 
-6(PC) 


-22¢PC) 
-=20 


bt 


016376 
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TEST 11: CONFIGURATION TYPEOUT 
10694 075162 RO,R1 sERROR, SAVE TSSR 


10698 075164 ERRNO, TSONBA,PKTSSR sTSSR NOT CORRECT AFTER WRT. MISCELLANEOUS 
075164 TRAP fees 


SEQ 0245 


075166 
075170 
075172 
10699 075174 sLOOP IF SELECTED 
10700 075176 CMP T39BFR- 100, 0125252 :01D OC _GET OVER 
18R 54 IT DION’T 
OT39ETN, UNITN s"ORIVE DOESN'T HAVE 


: 


3333." 


oF 
a2 
seis 


250% sSKIP OVER 
OTS9ETS,UNITN s"DRIVE HAS EXT TAPE STA 


PEELE 
na & 


8 
B 


1 nD oe onives YET 
MORE DRIVES 
80" Next 


IVE 
sMENU OF MANUAL ONS 
; MAXIMUM ALLOWED SELECTION 
sGO GET THE OPERATORS SELECTION 
sGET ae FROM ROUTINE 
;CONVERT O WORD OFFSET 
sJUMP TO PROPER LOOP 
sRETYPE THE MENU 


INC 
CMP 
BEQ 
JP 
MOV 
MOV 
JSR 
JP 


a 


@PRIOO ,RO 
CéSPRI 


@T3EMS2,-(SP) 
@ ad SP} 
CONTE 
@4,SP 
@TSONFL ,-(SP) 
#3. -(SP) 
CSPNTX 
64,SP 

644: EXIT TST sEXIT THIS SECTION 
CSEXIT 

' L10076-. 

sLOCAL TEXT MESSAGES FOR TEST 
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TEST 11: CONFIGURATION TYPEOUT 
= 
sLOCAL STORAGE FOR THIS TEST 
a ors 075938 <g>" SeLect SPERATION FROM FOLLOWING OPTIONS: ' 
011 060 2 <12 9 Diepl Thi ¢ Renu’ 


061 01 I run 
136 10 $s} " tC To Return to Diegnostic Supervisor’ 


sDELAY COUNTER FOR TEST 
PACKET FOR TE 


TIES ADDRESS OF CHARAC Hg Broek 


ARTING VALUE OF BLOCK SIZE 
scHaractbaretice S DATA BLOCK 
iBSELO 


. 
u 
A 


C r FOR TEST 
tORTTE CHARA MEH: ACK .CVC#1 
SADORESS OF SELECT DATA BLOCK” 


sSTARTING VALUE OF BLOCK SIZE 


VADDRESS OF MESSAGE BUFFER 


, rah xf MESSAGE BUFFER 
A] serect WORD ETC 
¢10>€177770 


140012 on BUFFER RELEASE COMMAND 
0 8 USED 


WRITE TAPE PACKET 

‘ .2<, 01026177770 
T39PK4; 

T39WR: 


nals: ae oe ep aR toro 


#10>€177770 
. 40004 


WORD 
WORD 
WORD 
WORD 
WORD 
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TEST 11: CONFIGURATION TYPEOUT 
sLOCAL TEXT MESSAGES FOR TEST 


"gn 

'Stand-alone Configuration Typeout Not Executed’ 

Extended Tepe Stetus Aveilieble, Drive Nes Number D2’ 
SNBA Extended Tepe Status NOT ovei liable. Drive Number #D2’ 


Dri 
Dri 
Ori 
Dri 


ite Protected 
ve Number #D2s8A Is NOT Write Protected’ 
SuBsySTEn MEMORY 


Command Not 
s of TSSR Incorrect After WRITE YSTEM MEMORY’ 
ice tC to Return to the 1d 
ate Of Extended Features 
ate Of Buffering Switch 


i : 


ae THE 


196 Microcode Revision Level 


°o 


t¢ 

sLOCAL STORAGE FOR THIS TEST 

t- 

T39DAT; .WORD O sLOGICAL RESPONSE TO QUESTION 

T39REST : 

SA + + THE REGISTERS 

OTSOPACKET i52 iSTAR T OF THE PACKET 
#140006 Ri) sWRITE p-esveren MEM. WITH ACK,CVC=1 
fae Ri)- Peat OF DATA BLOCK 


ISIZE OF DATA BLOCK IN BYTES 
rGLEAR BSELO AND BSEL1 
CLEAR DATA AREA 
sRETURN 

;LOCAL TEXT MESSAGES FOR TEST 

ot 

TST39I0: .ASCIZ ‘Configuration Typeout’ 

enter 


-SBTTL TEST 12: SCOPE LOOPS 
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THIS IS A On oS ROUTINE PROVIDING on ae OF TIGHT “SCOPE 
L BE 
T (SUBTEST )* F 
IN A EM _IN 
Y_ NOT BE RESPONDING TO A REGISTER 
TRAP, EVEN THE 


AVAILABLE: 
CODE 


Ss 

CTSSR WRITE ACCESS) 
WRITE ACCESS 
ACCE 


WRITE 
T -MODE WRITE ACCESS 
TSDOBX _CTSSR HIGH BYTE) WRITE SS 
¢ FEATURES SWITCH MUST BE ON 
0 USE iu t8 be CODE 3 
EXIT (RETURN SUPERVISOR 
OOPS THAT UR ye 0.0 REGISTERS + THE PROGRAM PROMPTS 
TO BE hn td pew EN. ‘T 


OPERATOR FOR THE DATA YPING <RETURN> CAUSES 
AN EXIT FROM THE SCOPE L LEVEL. 


NOU Sunred 


3 
G 
3 


101215 


west 


STE Fafa "SRLReSTSTE 
BS 
.WORD 


sMENU OF SCOPE LOOP SELECTIONS 





000007 OWED SELECTION 
017600 JSR PC, GETSEL i OPERATORS SELECTION 
RO SPE 
YES. 


Pa EXTENDED FEATURES SET 
Gn EXTENDED FEATURES CLEAR 
MOV 


$ 
BS ne 


S 


Ft ial 


TTION 
oe -@OTTICSR 


o 
H 
w 


8 
s SAVE 
sSET NEW 


ome CRD 


433558 


ASL 

JP 

. WORD 
ar 4 
.- WORD 
. WORD 
- WORD 
“WORD 


ReaD [gek Megiaen 


RO Rt 
1READ tern at REGIS 


ATR PATTERN FOR FOR es 


ay 8258 2p 





000002 
Ce Se dee 


’ MAINTENANCE MODE 
sREAD | Lg SS 
Roacss ps ge Ke 


ars a fo TS0 
HORII THe. Peco TS08. ME HIGH BYTE 
sLOOP UNTIL 


sENTER MAINTENANCE MODE 
sREAD DATA PATTERN 
s0ATA PATTERN FOR LOOP 

3 

sPOINT TO TSVOS'S REGISTERS 
;WRITE DATA To TSSR, LOW BYTE 
sLOOP UNTIL HALTED 6Y OPERATOR 


sREAD THE DATA PATTERN 
Pa ee FOR LOOP 


sLOOP UNTIL HALTED 


‘% THE DATA PATTERN 
THE 


MOV 
ADO 
MOV 
BR 
CLRB 
JSR 
MOV 
MOV 
ADO 
MOvB 
BR 
CLRB 
JSR 
MOV 
MOV 
ADO 
MOVB 
BR 
JSR 
MOV 
MOV 
ADO 
MOV 
BR 
JSR 
MOV 
MOV 
ADO 
MOVB 
BR 


, 
i 
| 


agangeag 


SE 
#15,80 
SP) 


TVECSAV ,@eTT 
TPRISAV , @OTTIVEC 2 
TTION 


~ 
~~ 
re ee ee & & & a Ge oe 


61% 
#100, aeTTICSR 
CSP )-,RO 


nae 
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oss: 
63%: ExIT TST s;EXIT THE TEST 


65$: wee RETURN TO . 
ons a, . B TO 200 IS NOT SUPPORTED ON . SeRaiON 2.X. 
sLOCAL STORAGE FOR THIS TEST 


Ty, = ES sae AFT Be fgeres Ta Deven oe 


TPRISAV, “WORD 0 SAVE TTI PRIORITY 
}MENU FOR OPERATOR INPUT FOR SCOPE LOOPS 


100455 100503 $.2¢.3%,48,5 
100712 100760 $.8%.9%.108, Lif’ 128.0 
<12>' SELECT SCOPE LOOP FROM FOLLOWING OPTIONS: ’ 
<12>' t?) visnley This Menu’ 
T Read Access’ 


“WORD 
s 
‘ASCE 
“ASEL 
Re 


| 


53 


La 
= 
m 


-SBTTL HARDWARE PARAMETER CODING SECTION 


a PARAMETER CODING SECTION CONTAINS MACROS 
T ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
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HARDWARE PARAMETER CODING SECTION 


NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
BY THE SUPERVISOR AS DATA STRUCTURES. THE 
Ow 1a SUPERVISOR TO ESTABLISH COMMUNICATIONS 


° L10100-L $HARD/2 


0,0,160010,177776, YES sGET TSBA/TSOB REGISTER ADDRESS. 


a3 


.0,0,776, YES sGET VECTOR ADDRESS. 


sli! 
4: 


i 
af 


-4,0,340,0,7. YES 3sGET INTERRUPT PRIORITY. 


i 
: 


110100: 
HPM1: 


rere 


* DEVICE Sones BN ae where : 
‘INTERRUPT VEC : 
‘INTERRUPT PRIORITY : 


NNN 


3a 3 
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SOFTWARE PARAMETER CODING SECTION 


nd ah 
wane 


RERES 


-SBTTL SOFTWARE PARAMETER CODING SECTION 


I 
DATA STRUCTURES. 
STABLISH COMMUNICATIONS 


ay A TEST FLAG. 
ITERATION CONTROL . 


GET T 
GET 
GET 
GET 


LOCAL ERROR LIMIT 
GLOBAL ERROR LIMIT 
110101: ~ . 

ENABLE TRANSPORT TESTS 


INHIBIT ITERATIONS 
PER T 
PER 


; FINALLY A GENEROUS PATCri AREA. 


; AND AN ADJUSTMENT TO ACCOUNT FOR THE “LASTAD BIT7” HACK 


s DESCRIBED IN “SUPPRG.MEM” (FOR REV C). 
s 


PATCH: : 


sSET LAST USED ADDRESS. 
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Syebeol teble 
ADDSSR 012166 
ADR = 000020 

006637 
000010 


00000 
T 003160 G 


3 
Seas 
0022 
040000 


: 
i 
: 


: 
CITESEER ETE 


ns 
ane 


Devon. 93 
Bracre 990000 
OSBINT 


a 
iE 


zon 


zé 
a 


oe 


PRK EOE RE HO HEH 
m 
, 
se 


ee 


SRESS 
Ancnch) 
gee 
HE 


SELRSF 


dl 
° 
Seseeeeeeeeeeeneeeneeeeeeeeeeeae 
68 


a 
a 
WANAAAAAANAANNANNANNAT 


Peeeeee 


aa 


betatatatatatatatatatatata 
seen 


: 


eieleleis elelsigisieleleisieieleisisisieisis eis e) 
es 


BESreEssosososos 
nf 

363 

e 


SaKm ee ssaae 
see 


tie 


2 eae 
a: 


98583 


8 
oi 
: 
& 


ath 


tstatatatatat=tat=t=t=1 
sage 


salou 


Ht 


a 


ADHADAAAAAAAAAAAAHAAAGAARAAAAGA 


QADAAGAAAG 


; 


z 
; 


= 6 
| Be 


us 


eggs 
+ 
R3 


00 
0031350 G 
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Symbol teble 


013166 L10073 066254 PRMSGE 014612 G 
003164 005770 000000 
000010 e 


002086 & 
021742 


rere 


a 
S88 
a 


pi 
E 


5 ad 
oO 
Lend 
% 
neem 
oe 


s 
oF 


ae SIP PPIPL LL 
#Pa3s 


a 


BESTE 


: 


o 
z 
DADAADAAAVAAAAAAAAAHAAAAHAAAAAAHAAAGG 


sate 


VILVVVIVVVVVOVODY 
z 


Go 


EEE 


ee 


3 


L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 
L 


R 

r 

o 
° 
RSE 
8 





re 
apryns eee 


SOF INI 
SPACE 
SPM 
SPM6 
SPM? 
SRO 
5 
SSR 


HT 
SERRt Az eR EERIAT EE 


Lan] 
a 
a 
RHR OES 


me 


m 
? 


AA AHHH HAHAHAHA AAI A A A I At I HH tH tI HH AH HH Ht tH tH 


Peee ese esses 

eeeeeeeeesn 

Br titttiittiai pea 
W 


F + 
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Oa7378 061532 
046235 peeps 


SSNSASSNE 
ee $ RaaDOY 


i 
5% 


a5 
3 


thi 


i 


76.6 
7 
8 
8 
18 

8 


EASES sess 
z - & 
Sore i 


SABASAS 


l alend 
=3 
se 
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000200 %4.MBZ= 017400 
000020 X%4.RCE= 040000 


7 Pages) 
a orgs. {5 Popes ag, 





